mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-29 06:55:07 +02:00
27 lines
612 B
Scheme
27 lines
612 B
Scheme
|
|
(letrec ((add (lambda (a b) (+ a b))))
|
|
(write (add 3 4))
|
|
(newline))
|
|
|
|
;; (letrec ((even? (lambda (n) (if (zero? n) #t (odd? (- n 1)))))
|
|
;; (odd? (lambda (n) (if (zero? n) #f (even? (- n 1))))))
|
|
;; (write (even? 1000))
|
|
;; (newline)
|
|
;; (write (even? 1001))
|
|
;; (newline)
|
|
;; (write (odd? 1000))
|
|
;; (newline)
|
|
;; )
|
|
|
|
((lambda (even? odd?)
|
|
(set! even? (lambda (n) (if (zero? n) #t (odd? (- n 1)))))
|
|
(set! odd? (lambda (n) (if (zero? n) #f (even? (- n 1)))))
|
|
(write (even? 1000))
|
|
(newline)
|
|
(write (even? 1001))
|
|
(newline)
|
|
(write (odd? 1000))
|
|
(newline)
|
|
)
|
|
'even 'odd)
|
|
|