Initial import

1 files changed, 14 insertions, 0 deletions

diff --git a/examples/fact.fco b/examples/fact.fco
new file mode 100644
index 0000000..6eccca9
--- /dev/null
+++ b/examples/fact.fco
@@ -0,0 +1,14 @@
+# Factorial of a number
+def fact(n acc)
+    if =(n 1)
+        acc
+    else
+        # tagging a tail call with "@" so it can be optimized
+        @fact(-(n 1) *(acc n))
+    end
+end
+
+def main()
+    display("Running fact(50)...")
+    display(fact(50. 1))
+end