convert (limited) letrec

2026-08-18 20:38:17 -06:00
parent a73b3ed89b
commit 6949ff7fdf
4 changed files with 32 additions and 4 deletions
@@ -0,0 +1,2 @@
+ret > ExitSuccess
+out > 720
@@ -0,0 +1,5 @@
+(letrec ((fac (λ (n)
+                (if (zero? n)
+                    1
+                    (* n (fac (- n 1)))))))
+  (fac 6))