RosettaCodeData/Task/FizzBuzz/Scheme/fizzbuzz-1.ss

9 lines
229 B
Scheme
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
(do ((i 1 (+ i 1)))
((> i 100))
(display
(cond ((= 0 (modulo i 15)) "FizzBuzz")
((= 0 (modulo i 3)) "Fizz")
((= 0 (modulo i 5)) "Buzz")
(else i)))
(newline))