diff options
Diffstat (limited to 'factorial.lith')
-rw-r--r-- | factorial.lith | 13 |
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)) |