6 lines
393 B
Rexx
6 lines
393 B
Rexx
/*REXX program displays numbers 1 ──► 100 (some transformed) for the FizzBuzz problem.*/
|
|
/* [↓] concise, but somewhat obtuse. */
|
|
do j=1 for 100
|
|
say right(word(word('Fizz', 1+(j//3\==0))word('Buzz', 1+(j//5\==0)) j, 1), 8)
|
|
end /*j*/
|
|
/*stick a fork in it, we're all done. */
|