1 files changed, 33 insertions, 0 deletions
diff --git a/examples/fac.ccl b/examples/fac.ccl
new file mode 100644
index 0000000..2d53d79
--- /dev/null
+++ b/examples/fac.ccl
@@ -0,0 +1,33 @@
+^=z / z = 0
+F/actorial / n -- nth-factorial
+{
+    z?+#; / n == 0 ? return 1
+
+    =a$a$a / dup n
+    - @F=a / a = F(n - 1)
+
+    =b / b = n
+
+    / push a * b
+    b[$a]
+    $b-=b
+    b[*]
+}
+
+I/terative factorial / n -- nth-fctorial
+{
+    z?+#;   / n == 0 ? return 1
+
+    =c$c    / c = n - 1
+    $c-=c   / --c
+
+    c (                     / while c > 0
+        $c                  /   push c
+        =a=ba[$b]$a-=aa[*]  /   multiply 2 toppest nums
+        $c-=c               /   --c
+    )
+}
+
+^++++++
+^++++++ @F
+^++++++ @I