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

2 lines
60 B
Common Lisp

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