4 lines
89 B
Text
4 lines
89 B
Text
(de fib (N)
|
|
(let (A 0 B 1)
|
|
(do N
|
|
(prog1 B (setq B (+ A B) A @)) ) ) )
|