diff options
Diffstat (limited to 'files')
| -rw-r--r-- | files/test-cons.l (renamed from files/test1.l) | 1 | ||||
| -rw-r--r-- | files/test-lambda.l | 23 | ||||
| -rw-r--r-- | files/test.l | 5 |
3 files changed, 24 insertions, 5 deletions
diff --git a/files/test1.l b/files/test-cons.l index b7e4749..7a4de7d 100644 --- a/files/test1.l +++ b/files/test-cons.l @@ -1,3 +1,4 @@ +(define a 3) '(sn ,(+ a 1)) '(1 2 (lol . test) 3 4 ,(+ 1 2) test) diff --git a/files/test-lambda.l b/files/test-lambda.l new file mode 100644 index 0000000..e088ad6 --- /dev/null +++ b/files/test-lambda.l @@ -0,0 +1,23 @@ +(define make-add (lambda (a) (lambda (b) (+ a b)))) +(define add4 (make-add 4)) +(add4 5) + +'(a b ,((lambda (a) '(test . ,a)) 69) c d) + +(define fib (lambda (c) (fib-rec 0 1 0 c))) +(define fib-rec (lambda (a b n c) + (if (= n c) + b + (fib-rec b (+ a b) (+ n 1) c)))) + +(define do (lambda (c f) (do-rec f 0 0 c))) + +(define do-rec (lambda (f r n c) + (if (= n c) r + (do-rec f (f n) (+ n 1) c)))) + +;; comment +;; another comment +;; fib(13) +(do 10 (lambda (n) (display (fib n)))) ; comment + diff --git a/files/test.l b/files/test.l deleted file mode 100644 index d9e9acc..0000000 --- a/files/test.l +++ /dev/null @@ -1,5 +0,0 @@ -(define make-add (lambda (a) (lambda (b) (+ a b)))) -(define add4 (make-add 4)) -(add4 5) - -'(a b ,((lambda (a) '(test . ,a)) 69) c d) |