alists and plists now

2019-07-05 01:26:00 +02:00
parent d576e7324f
commit e0aaf351c5
14 changed files with 646 additions and 106 deletions
@@ -0,0 +1,37 @@
+(define (test-cond x)
+  (cond ((< 0 x) +1)
+        ((> 0 x) -1)
+        (else 0)))
+
+(assert (= (test-cond 10)  1))
+(assert (= (test-cond 1)   1))
+(assert (= (test-cond 123) 1))
+
+(assert (= (test-cond -10)  -1))
+(assert (= (test-cond -1)   -1))
+(assert (= (test-cond -123) -1))
+
+(assert (= (test-cond  0) 0))
+(assert (= (test-cond -0) 0))
+(assert (= (test-cond +0) 0))
+
+
+(define (test-case x)
+  (case x
+    ((a b 3) 1)
+    ((4 5 6) -1)
+    (else 'xD)))
+
+
+(assert (= (test-case 'a) 1))
+(assert (= (test-case 'b) 1))
+(assert (= (test-case 3)  1))
+
+(assert (= (test-case 4) -1))
+(assert (= (test-case 5) -1))
+(assert (= (test-case 6) -1))
+
+(assert (= (test-case 0)    'xD))
+(assert (= (test-case 1)    'xD))
+(assert (= (test-case :asd) 'xD))
+