RosettaCodeData/Task/Fibonacci-sequence/Common-Lisp/fibonacci-sequence-3.lisp

2 lines
60 B
Common Lisp
Raw Permalink Normal View History

2014-01-17 05:32:22 +00:00
(loop for x = 0 then y and y = 1 then (+ x y) do (print x))