RosettaCodeData/Task/FizzBuzz/Fe/fizzbuzz-2.fe

9 lines
166 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
(= i 0)
(while (< i 100)
(= i (+ i 1))
(print
(if (is (mod i 15) 0) "FizzBuzz"
(is (mod i 3) 0) "Fizz"
(is (mod i 5) 0) "Buzz"
i)))