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

3 lines
100 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
(defn int fib (int n) (return (? (< n 2) n (+ (fib (- n 1)) (fib (- n 2))))))
(main (prn (fib 30)))