7 lines
246 B
Common Lisp
7 lines
246 B
Common Lisp
(defun fizzbuzz ()
|
|
(loop for x from 1 to 100 do
|
|
(princ (cond ((zerop (mod x 15)) "FizzBuzz")
|
|
((zerop (mod x 3)) "Fizz")
|
|
((zerop (mod x 5)) "Buzz")
|
|
(t x)))
|
|
(terpri)))
|