zongors-reality-engine/test/fib.lisp

8 lines
127 B
Common Lisp

(defun fib (int n)
(if (n < 2)
(return n)
(return (+ (fib (- n 2))
(fib (- n 1))))))
(puts (itos (fib 35)))