tests/lambdarec.lisp


1
2
3
4
5
6
7
8
9
10

#include "stdlib.lisp"

(define fibo (n)
    (let ((helper (lambdarec rec (m 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))))