diff options
| author | Tom Smeding <tom.smeding@gmail.com> | 2019-11-20 22:47:52 +0100 |
|---|---|---|
| committer | Tom Smeding <tom.smeding@gmail.com> | 2019-11-20 23:06:45 +0100 |
| commit | d541e0f84ae8f82f70e2393207d359975841facf (patch) | |
| tree | 7a1618c9379b05d6645e67db29af6b7171194c20 /tests/lambdarec.lisp | |
| parent | 2cafab14203878f355a531fc6a3763881a52b108 (diff) | |
lambdarec for singly-recursive lambda's
Diffstat (limited to 'tests/lambdarec.lisp')
| -rw-r--r-- | tests/lambdarec.lisp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/lambdarec.lisp b/tests/lambdarec.lisp index 69b830c..a6caa55 100644 --- a/tests/lambdarec.lisp +++ b/tests/lambdarec.lisp @@ -1,6 +1,10 @@ +#include "stdlib.lisp" + (define fibo (n) (let ((helper (lambdarec rec (m a b) - (if (= m n) b (rec m b (+ a b)))))) + (if (= m n) b (rec (+ m 1) b (+ a b)))))) (if (<= n 0) 0 (if (<= n 2) 1 (helper 2 1 1))))) + +(for 1 25 (lambda (i) (print (fibo i)))) |