diff --git a/examples/again.myc b/examples/again.myc new file mode 100644 index 0000000..5e6c557 --- /dev/null +++ b/examples/again.myc @@ -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))