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))