diff options
| author | tomsmeding <tom.smeding@gmail.com> | 2016-08-24 22:51:28 +0200 |
|---|---|---|
| committer | tomsmeding <tom.smeding@gmail.com> | 2016-08-24 22:51:28 +0200 |
| commit | 0d339ae7bf88443df5968d605aeca146dd78e0c3 (patch) | |
| tree | 31263fc97c77059696a7fd2470ff40120b510ed8 /fibo.lysp | |
| parent | 43d1244d4d3f5680c84ed840eb8876292c3fd49c (diff) | |
Diffstat (limited to 'fibo.lysp')
| -rw-r--r-- | fibo.lysp | 17 |
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)) +) |