RosettaCodeData/Task/Fibonacci-sequence/Common-Lisp/fibonacci-sequence-3.lisp
2014-01-17 05:34:36 +00:00

1 line
60 B
Common Lisp

(loop for x = 0 then y and y = 1 then (+ x y) do (print x))