8 lines
898 B
Rexx
8 lines
898 B
Rexx
/*REXX program displays numbers 1 ──► 100 (some transformed) for the FizzBuzz problem.*/
|
|
/*╔═══════════════════════════════════╗*/
|
|
do j=1 to 100; z= j /*║ ║*/
|
|
if j//3 ==0 then z= 'Fizz' /*║ The divisors (//) of the IFs ║*/
|
|
if j//5 ==0 then z= 'Buzz' /*║ must be in ascending order. ║*/
|
|
if j//(3*5)==0 then z= 'FizzBuzz' /*║ ║*/
|
|
say right(z, 8) /*╚═══════════════════════════════════╝*/
|
|
end /*j*/ /*stick a fork in it, we're all done. */
|