Implemented load word. (Now just need scheme prim.)

[scheme.forth.jl.git] / fact.scm

diff --git a/fact.scm b/fact.scm
new file mode 100644 (file)
index 0000000..0991511
--- /dev/null
+++ b/fact.scm
@@ -0,0 +1,8 @@
+; Demo scheme source file.
+
+(define (fact n)
+       (if (= n 0)
+               1
+               (* n (fact (- n 1)))))
+
+; Done!