path: root/tests/letrec.lisp

(define fibo (n)
    (let ((helper (lambda (m a b)
                        (if (= m n) b (helper m b (+ a b))))))
        (if (<= n 0) 0
         (if (<= n 2) 1
          (helper 2 1 1)))))