8 lines
226 B
Text
8 lines
226 B
Text
to fizzbuzz :n
|
|
output cond [ [[equal? 0 modulo :n 15] "FizzBuzz]
|
|
[[equal? 0 modulo :n 5] "Buzz]
|
|
[[equal? 0 modulo :n 3] "Fizz]
|
|
[else :n] ]
|
|
end
|
|
|
|
repeat 100 [print fizzbuzz #]
|