X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=expressions.t;fp=expressions.t;h=dc2cabd8f8c9ab9ab024914296d3cbdfbdc322ad;hb=61a16fa6d7988ba5ae3c570dbd27d6bf32342a1a;hp=0000000000000000000000000000000000000000;hpb=e7b86bf0143c9bef1c26248fcda4fb2f2558b519;p=clump.git

diff --git a/expressions.t b/expressions.t
new file mode 100644
index 0000000..dc2cabd
--- /dev/null
+++ b/expressions.t
@@ -0,0 +1,27 @@
+'(1 2 3)
+5
+((lambda id (x) x) 5)
+((lambda id (x) x) '(1 2 3))
+(car '(2 3))
+(car (cdr '(4 5 6)))
+((lambda snd (x y) y) 'first 'second)
+
+(cons '(1 2) '(7))
+(car (cons '(1 2) '(7)))
+(cdr (cons '(1 2) '(7)))
+
+((lambda rev (xs) ((lambda reverse-acc (xs acc) (if xs (reverse-acc (cdr xs) (cons (car xs) acc)) acc)) xs '())) '(4 5 6 7))
+
+(atom nil)
+(atom t)
+(atom 'symbol)
+(atom 5)
+
+(reverse-list 9 8 7 6 5 4)
+
+(atom '())
+(atom '(1 2 3))
+(atom '((1 2) (3 4)))
+(atom (cons 1 '(2)))
+
+(progn 4 5 6 7 8)