8 lines
197 B
Text
8 lines
197 B
Text
to fizzbuzz :n
|
|
make "c "
|
|
if equal? 0 modulo :n 5 [make "c "Buzz]
|
|
if equal? 0 modulo :n 3 [make "c word "Fizz :c]
|
|
output ifelse equal? :c " [:n] [:c]
|
|
end
|
|
|
|
repeat 100 [print fizzbuzz repcount]
|