blob: c132db818a5278cb55692187d36f47929a79cc0c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
(let ((a 1)
(b 2))
(assert (= 3 (+ a b))))
;; let is letrec by default
(let ((a 1)
(b (+ a 1)))
(assert (= 2 b)))
(let ((my-evenp
(lambda (x)
(if (= x 0)
#t
(funcall my-oddp (- x 1)))))
(my-oddp
(lambda (x)
(if (= x 0)
#f
(funcall my-evenp (- x 1))))))
(assert (funcall my-evenp 10))
(assert (funcall my-oddp 9))
(assert (not (funcall my-evenp 9)))
(assert (not (funcall my-oddp 10))))
(assert
(= 2
(funcall
(lambda ()
(let () (return 2))
(return 1)))))
|
