9 lines
219 B
EmacsLisp
9 lines
219 B
EmacsLisp
(defun fizzbuzz (n)
|
|
(cond ((and (zerop (% n 5)) (zerop (% n 3))) "FizzBuzz")
|
|
((zerop (% n 3)) "Fizz")
|
|
((zerop (% n 5)) "Buzz")
|
|
(t n)))
|
|
|
|
;; loop & print from 0 to 100
|
|
(dotimes (i 101)
|
|
(message "%s" (fizzbuzz i)))
|