10 lines
221 B
Common Lisp
10 lines
221 B
Common Lisp
(defun fizzbuzz (n)
|
|
(cond ((and
|
|
(eq (% n 5) 0)
|
|
(eq (% n 3) 0)) "FizzBuzz")
|
|
((eq (% n 3) 0) "Fizz")
|
|
((eq (% n 5) 0) "Buzz")
|
|
(t n)))
|
|
|
|
;; loop & print from 0 to 100
|
|
(dotimes (i 101) (princ-list (fizzbuzz i)))
|