With adjustments of output precision and form after reading Roger's warning!
out=: >:i.100
f=: 0=3|out
b=: 0=5|out
t=: (>./"1 f,.(2*b),.(3*f*.b))
ndx=: I.0<t
into=: (<:t-.0) { 'Fizz';'Buzz';'FizzBuzz'
>8!:0 into ndx } <&>out
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
