9 lines
226 B
Text
9 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 #]
|