Minilisp.pm/examples/fizzbuzz.lisp
2021-04-06 23:00:00 +02:00

5 lines
238 B
Common Lisp

(do ((i 1 (+ i 1))) ((= i 100))
(write-line (cond ((and (zerop (mod i 3)) (zerop (mod i 5))) "FizzBuzz")
((zerop (mod i 3)) "Fizz")
((zerop (mod i 5)) "Buzz")
(t i))))