diff options
Diffstat (limited to 'tests/variables_expected.txt')
| -rw-r--r-- | tests/variables_expected.txt | 34 |
1 files changed, 23 insertions, 11 deletions
diff --git a/tests/variables_expected.txt b/tests/variables_expected.txt index 2e6e2be..02a5f7a 100644 --- a/tests/variables_expected.txt +++ b/tests/variables_expected.txt | |||
| @@ -1,11 +1,23 @@ | |||
| 1 | (error? (def a 1)) -> false | 1 | (def a 20) |
| 2 | a -> 1 | 2 | ((lambda (a b) (+ 10 a b)) 1 2) -> 13 |
| 3 | (error? (def a 300)) -> false | 3 | ((lambda (a b) (+ 10 a b)) a 3) -> 33 |
| 4 | a -> 300 | 4 | (def myfun (lambda (a b) (+ a b))) (myfun 6 9) -> 15 |
| 5 | (error? (def a "strings")) -> false | 5 | (fun myfun (a b) (+ a b)) (myfun 6 9) -> 15 |
| 6 | a -> "strings" | 6 | (+ 1 (myfun 10 (myfun a a)) 30) -> 81 |
| 7 | (error? (def a 1)) -> false | 7 | (myfun 10 (myfun 5 0)) -> 15 |
| 8 | a -> (:quoted :symbols 123 :or "strings") | 8 | (fun make-counter () (def value 0) (def counter (lambda () (set! value (+ value 1)) value)) counter) |
| 9 | (error? (set! a 42)) -> false | 9 | (def counter-a (make-counter)) |
| 10 | a -> 42 | 10 | (def counter-b (make-counter)) |
| 11 | (error? (set! b 99)) -> true | 11 | (counter-a) -> 1 |
| 12 | (counter-b) -> 1 | ||
| 13 | (counter-a) -> 2 | ||
| 14 | (counter-a) -> 3 | ||
| 15 | (counter-a) -> 4 | ||
| 16 | (counter-b) -> 2 | ||
| 17 | (counter-b) -> 3 | ||
| 18 | (counter-b) -> 4 | ||
| 19 | (fun fib (n) (if (<= n 2) 1 (+ (fib (- n 1)) (fib (- n 2))))) | ||
| 20 | (fib 15) -> 610 | ||
| 21 | (fun b () (display a) (print " --- ") (def a 42) (display a) (newline)) | ||
| 22 | (b) -> 20 --- 42 | ||
| 23 | (b) -> 20 --- 42 | ||