First commit of partial RosettaCode contents.
Pushing this for testing purposes. Lots of work still needed.
This commit is contained in:
commit
1e05ecd7ee
781 changed files with 9080 additions and 0 deletions
11
Task/FizzBuzz/REXX/fizzbuzz-2.rexx
Normal file
11
Task/FizzBuzz/REXX/fizzbuzz-2.rexx
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
/*REXX program displays numbers 1 ââ⺠100 for the FizzBuzz problem. */
|
||||
|
||||
do n=1 for 100
|
||||
select
|
||||
when n//15==0 then say 'FizzBuzz'
|
||||
when n//5 ==0 then say ' Buzz'
|
||||
when n//3 ==0 then say ' Fizz'
|
||||
otherwise say right(n,8)
|
||||
end /*select*/
|
||||
end /*n*/
|
||||
/*stick a fork in it, we're done.*/
|
||||
8
Task/FizzBuzz/REXX/fizzbuzz-3.rexx
Normal file
8
Task/FizzBuzz/REXX/fizzbuzz-3.rexx
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
/*REXX program displays numbers 1 ââ⺠100 for the FizzBuzz problem. */
|
||||
|
||||
do n=1 for 100; _=
|
||||
if n//3 ==0 then _= 'Fizz'
|
||||
if n//5 ==0 then _=_'Buzz'
|
||||
say right(word(_ n,1),8)
|
||||
end /*n*/
|
||||
/*stick a fork in it, we're done.*/
|
||||
9
Task/FizzBuzz/REXX/fizzbuzz.rexx
Normal file
9
Task/FizzBuzz/REXX/fizzbuzz.rexx
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
/*REXX program displays numbers 1 ââ⺠100 for the FizzBuzz problem. */
|
||||
|
||||
do j=1 to 100; z=j
|
||||
if j//3 ==0 then z='Fizz'
|
||||
if j//5 ==0 then z='Buzz'
|
||||
if j//(3*5)==0 then z='FizzBuzz'
|
||||
say right(z,8)
|
||||
end /*j*/
|
||||
/*stick a fork in it, we're done.*/
|
||||
Loading…
Add table
Add a link
Reference in a new issue