RosettaCodeData/Task/FizzBuzz/NewLISP/fizzbuzz-1.l
2024-10-16 18:07:41 -07:00

7 lines
137 B
Common Lisp

(dotimes (i 100)
(println
(cond
((= 0 (% i 15)) "FizzBuzz")
((= 0 (% i 3)) "Fizz")
((= 0 (% i 5)) "Buzz")
('t i))))