More examples

examples/comparison.lisp

@@ -0,0 +1,10 @@
+(eq 1 1) ; True
+(eq 1 2) ; False
+
+(define a (λ () (+ 1 2 3)))
+(define b (lambda () (+ 1 2 3)))
+(eq a b) ; True
+
+(eq () nil) ; True
+
+(eq () (eval ())) ; True

examples/define.lisp

@@ -1,3 +1,3 @@
 (define a 10)
 (define b 20)
-(define c (+ a b))
+(define c (lambda () (+ a b)))

examples/eval.lisp

@@ -0,0 +1,3 @@
+(eval
+    (quote
+        (+ 1 2)))

examples/lambda.lisp

@@ -1,2 +1,7 @@
-(define a (λ () (+ 1 2 3)))
+(define a
-(a)
+    (λ ()
+        (+ 1 2 3)))
+
+(define b
+    (lambda () 
+        (+ 1 2 3)))

examples/repl.lisp

@@ -0,0 +1,9 @@
+(define repl 
+    (lambda () (
+        (print "λ -> ")
+        (print
+            (eval
+                (read)))
+        (print "\n")
+        (repl))))
+(repl)