dotted list and such

2026-08-27 01:43:42 -06:00
parent 196dd0d1b3
commit 1f40120740
13 changed files with 108 additions and 29 deletions
@@ -0,0 +1,2 @@
+ret > ExitSuccess
+out > 456
@@ -0,0 +1,2 @@
+ret > ExitSuccess
+out > 12
@@ -0,0 +1,4 @@
+(* 2 (call/cc
+      (λ (k)
+        (begin (k 6)
+               3))))
@@ -0,0 +1,2 @@
+ret > ExitSuccess
+out > 155
@@ -0,0 +1,10 @@
+(letrec ((factorial (λ (n)
+                      (if (zero? n)
+                          1
+                          (* n (factorial (- n 1)))))))
+  (letrec ((sum-of-factorials
+            (λ (n)
+              (if (zero? n)
+                  0
+                  (+ (factorial n) (sum-of-factorials (- n 1)))))))
+    (+ 2 (sum-of-factorials 5))))
@@ -0,0 +1,2 @@
+ret > ExitSuccess
+out > (6 . 7)
@@ -0,0 +1 @@
+(cons 6 7)