summaryrefslogtreecommitdiff
path: root/fibo.lysp
diff options
context:
space:
mode:
Diffstat (limited to 'fibo.lysp')
-rw-r--r--fibo.lysp17
1 files changed, 17 insertions, 0 deletions
diff --git a/fibo.lysp b/fibo.lysp
new file mode 100644
index 0000000..09fe16b
--- /dev/null
+++ b/fibo.lysp
@@ -0,0 +1,17 @@
+(do
+ (define 'fibo '(n)
+ '(if (= n 0) 0
+ '(if (= n 1) 1
+ '(+ (fibo (- n 2)) (fibo (- n 1)))
+ )
+ )
+ )
+ (print (fibo 1))
+ (print (fibo 2))
+ (print (fibo 3))
+ (print (fibo 4))
+ (print (fibo 5))
+ (print (fibo 6))
+ (print (fibo 7))
+ (print (fibo 8))
+)