RosettaCodeData/Task/Fibonacci-sequence/XLISP/fibonacci-sequence-1.xlisp

3 lines
85 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
(DEFUN FIBONACCI (N)
(FLOOR (+ (/ (EXPT (/ (+ (SQRT 5) 1) 2) N) (SQRT 5)) 0.5)))