RosettaCodeData/Task/FizzBuzz/NewLISP/fizzbuzz.newlisp
2015-02-20 00:35:01 -05:00

7 lines
137 B
Text

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