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

3 lines
100 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
(defn int fib (int n) (return (? (< n 2) n (+ (fib (- n 1)) (fib (- n 2))))))
(main (prn (fib 30)))