2026-05-07 15:41:30 -06:00
parent c716948932
commit 0f75f7b4e6
11 changed files with 75 additions and 28 deletions
@@ -0,0 +1,16 @@
+(define (factorial n)
+  (if (zero? n)
+      1
+      (* n (factorial (- n 1)))))
+
+
+;;; ANF
+
+(define (factorial n)
+  (let ((r₁ (zero? n)))
+    (if r₁
+        1
+        (let ((r₂ (- n 1))
+              (r₃ (factorial r₂))
+              (r₄ (* n r₃)))
+          r₄))))