allow multiple values in cps conversion

2026-08-27 00:57:09 -06:00
parent 87baed9efc
commit 21b9f0e69d
9 changed files with 84 additions and 29 deletions
@@ -0,0 +1,2 @@
+ret > ExitSuccess
+out > #t
@@ -0,0 +1,12 @@
+(letrec ((iter (λ (n f)
+                 (if (zero? n)
+                     #f
+                     (begin (f n)
+                            (iter (- n 1) f))))))
+  (call/cc
+   (λ (k)
+     (iter 10 (λ (n)
+                ;; i don't feel like implementing (= n 5) right now lmfao
+                (if (zero? (- n 5))
+                    (k #t)
+                    #f))))))