Added fact.l missing from previous commit

diff --git a/fact.l b/fact.l
new file mode 100644 (file)
index 0000000..11cac4b
--- /dev/null
+++ b/fact.l
@@ -0,0 +1,9 @@
+(defun fact_rec (x accum)
+    (if (= x 1) 
+        accum 
+        (fact_rec (- x 1)  (* accum x))))
+
+(defun fact(x) (fact_rec x 1))
+
+(display (fact 10))
+(display (fact 1000))