RosettaCodeData/Task/Fibonacci-sequence/NewLISP/fibonacci-sequence-2.l
2023-07-01 13:44:08 -04:00

4 lines
93 B
Common Lisp

(define (fibonacci n)
(if (< n 2) 1
(+ (fibonacci (- n 1))
(fibonacci (- n 2)))))