11 lines
221 B
Text
11 lines
221 B
Text
|
(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)))
|