6 lines
238 B
Common Lisp
6 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))))
|