Create again.myc

2026-02-23 20:33:56 +01:00
parent 4905b08548
commit 9b7ef5080c
1 changed files with 10 additions and 0 deletions
@@ -0,0 +1,10 @@
+;; Benchmark: 2.5us
+;; Benchmark-Repeat: 804
+;; Output: 120
+(do
+  (def factorial (fn [n acc]
+    (if (= n 0)
+      acc
+      (again [(- n 1) (* acc n)]))))
+
+  (factorial 5 1))