RosettaCodeData/Task/Fibonacci-sequence/L++/fibonacci-sequence.lpp

3 lines
100 B
Plaintext

(defn int fib (int n) (return (? (< n 2) n (+ (fib (- n 1)) (fib (- n 2))))))
(main (prn (fib 30)))