From 9f2f7ab8ee031935cc206c8a23d680d2f7cdc8a7 Mon Sep 17 00:00:00 2001
From: Jorge Gorbe <slack@codemaniacs.com>
Date: Fri, 10 Jan 2014 12:32:39 +0100
Subject: [PATCH] Added fact.l missing from previous commit

---
 fact.l | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 fact.l

diff --git a/fact.l b/fact.l
new file mode 100644
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))
-- 
2.34.1