summary refs log tree commit diff stats
path: root/factorial.lith
diff options
context:
space:
mode:
Diffstat (limited to 'factorial.lith')
-rw-r--r--factorial.lith13
1 files changed, 0 insertions, 13 deletions
diff --git a/factorial.lith b/factorial.lith
deleted file mode 100644
index 2349fb7..0000000
--- a/factorial.lith
+++ /dev/null
@@ -1,13 +0,0 @@
-;;;; factorial.lith
-;;;; the factorial program written in lith
-
-(define (! n)
-    (if (< n 2)
-        1
-        (* n (! (- n 1)))))
-
-(define (fac n)
-    (apply * (range 1 n)))
-
-(print (! 5) (! 6))
-(print (fac 10))