aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Sync

Browse source
This commit is contained in:
Ingy döt Net 2013-10-27 22:24:23 +00:00
parent 6f050a029e
commit 776bba907c
3887 changed files with 59894 additions and 7280 deletions
Download patch file Download diff file Expand all files Collapse all files

19
Task/Loops-Continue/REXX/loops-continue.rexx
View file

@ -1,10 +1,11 @@
/*REXX program to illustrate DO loop with an ITERATE (continue). */
/*REXX program illustrates a DO loop with an ITERATE (continue). */
do j=1 to 10
call charout , j", "
if j//5==0 then do
say
iterate
end
end /*j*/
do j=1 for 10 /*equivalent to: DO J=1 TO 10 */
call charout , j /*write the integer to terminal. */
if j//5\==0 then do /*Not a multiple of five? Then..*/
call charout , ", " /*write a comma to the terminal, */
iterate /*... & then go back for next int*/
end
say /*force REXX display to next line*/
end /*j*/
/*stick a fork in it, we're done.*/