1 files changed, 23 insertions, 0 deletions
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
+