9 lines
155 B
Text
9 lines
155 B
Text
(function fizzbuzz n
|
|
(match (map (rem n) [3 5])
|
|
[0 0] "FizzBuzz"
|
|
[0 _] "Fizz"
|
|
[_ 0] "Buzz"
|
|
n))
|
|
|
|
(loop 100 i
|
|
(-> i inc fizzbuzz print))
|