RosettaCodeData/Task/Fibonacci-sequence/NewLISP/fibonacci-sequence-2.newlisp

5 lines
93 B
Plaintext

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