blob: 02a5f7aa32cedd7c9c47d1ccc6254607c76e2750 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
(def a 20)
((lambda (a b) (+ 10 a b)) 1 2) -> 13
((lambda (a b) (+ 10 a b)) a 3) -> 33
(def myfun (lambda (a b) (+ a b))) (myfun 6 9) -> 15
(fun myfun (a b) (+ a b)) (myfun 6 9) -> 15
(+ 1 (myfun 10 (myfun a a)) 30) -> 81
(myfun 10 (myfun 5 0)) -> 15
(fun make-counter () (def value 0) (def counter (lambda () (set! value (+ value 1)) value)) counter)
(def counter-a (make-counter))
(def counter-b (make-counter))
(counter-a) -> 1
(counter-b) -> 1
(counter-a) -> 2
(counter-a) -> 3
(counter-a) -> 4
(counter-b) -> 2
(counter-b) -> 3
(counter-b) -> 4
(fun fib (n) (if (<= n 2) 1 (+ (fib (- n 1)) (fib (- n 2)))))
(fib 15) -> 610
(fun b () (display a) (print " --- ") (def a 42) (display a) (newline))
(b) -> 20 --- 42
(b) -> 20 --- 42
|
