4 lines
156 B
Common Lisp
4 lines
156 B
Common Lisp
(defun fizzbuzz ()
|
|
(loop for n from 1 to 100
|
|
do (format t "~&~[~[FizzBuzz~:;Fizz~]~*~:;~[Buzz~*~:;~D~]~]~%"
|
|
(mod n 3) (mod n 5) n)))
|