a little scheme

2024-08-20 19:10:43 +02:00 · 2024-08-20 19:10:43 +02:00 · 4a5b13324f
commit 4a5b13324f
parent c43a63cc2e
3 changed files with 1269 additions and 0 deletions
--- a/little_schemer/the-little-schemer.rkt
+++ b/little_schemer/the-little-schemer.rkt
--- a/little_schemer/tls.ss
+++ b/little_schemer/tls.ss
@ -0,0 +1,11 @@
+(define atom?
+  (lambda (x)
+    (and (not (pair? x)) (not (null? x)))))
+
+(define add1
+  (lambda (x)
+    (+ x 1)))
+
+(define sub1
+  (lambda (x)
+    (- x 1)))