RosettaCodeData/Task/Fibonacci-sequence/PicoLisp/fibonacci-sequence-2.l

(de fibo (N)
   (cache '(NIL) N  # Use a cache to accelerate
      (if (>= 2 N)
         N
         (+ (fibo (dec N)) (fibo (- N 2))) ) ) )

(bench (fibo 1000))
A-M baby 2013-04-10 21:29:02 -07:00			`(de fibo (N)`
March 2014 update 2014-04-02 16:56:35 +00:00			`(cache '(NIL) N # Use a cache to accelerate`
A-M baby 2013-04-10 21:29:02 -07:00			`(if (>= 2 N)`
			`N`
			`(+ (fibo (dec N)) (fibo (- N 2))) ) ) )`

			`(bench (fibo 1000))`