mirror of
https://github.com/peklaiho/madlisp.git
synced 2024-10-18 13:02:04 +00:00
12 lines
438 B
Plaintext
12 lines
438 B
Plaintext
; Functions to calculate Fibonacci numbers
|
|
|
|
; Slow recursive version
|
|
(def slowFib (fn (n) (if (< n 2) n (+ (slowFib (- n 1)) (slowFib (- n 2))))))
|
|
|
|
; Return the sum of the last 2 numbers in a sequence
|
|
(def sumOfLast (fn (l) (+ (last l) (get l (- (len l) 2)))))
|
|
|
|
; Faster version, return vector of n numbers
|
|
(def fibListRec (fn (n l) (if (< (len l) n) (fibListRec n (push l (sumOfLast l))) l)))
|
|
(def fibList (fn (n) (fibListRec n [0 1])))
|