RosettaCodeData/Task/FizzBuzz/Logo/fizzbuzz-2.logo

9 lines
197 B
Plaintext

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]