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

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

32
Task/Loops-Nested/REXX/loops-nested.rexx
View file

@ -1,18 +1,22 @@
/*REXX program to loop through a 2-dimensional array to look for a '20'.*/
rows=60
cols=10
do row =1 for rows /*1st dimension ∙∙∙ */
do col=1 for cols /*2nd dimension ∙∙∙ */
@.row.col=random(1,20) /*generate some nums.*/
/*REXX program loops through a 2-dimensional array to look for a '20'. */
parse arg rows cols targ . /*obtain optional args from C.L. */
if rows=='' | rows==',' then rows=60 /*Rows not specified? Use default*/
if cols=='' | cols==',' then cols=10 /*Cols " " " " */
if targ=='' | targ==',' then targ=20 /*Targ " " " " */
w=max(length(rows),length(cols),length(targ)) /*for formatting output.*/
not='not' /* [↓] construct the 2-dim array.*/
do row=1 for rows /*1st dimension of the array. */
do col=1 for cols /*2nd " " " " */
@.row.col=random(1,targ) /*generate some random numbers. */
end /*row*/
end /*col*/
/*─────────────────────────────────────now, search for the hidden twenty*/
do r =1 for rows
do c=1 for cols
say left('@.'r"."c,9) '=' right(@.r.c,4)
if @.r.c==20 then leave r
end /*c*/
end /*r*/
/*═════════════════════════════════════now, search for the target {20}.*/
do r=1 for rows
do c=1 for cols
say left('@.'r"."c,3+w+w) '=' right(@.r.c,w) /*display.*/
if @.r.c==targ then do; not=; leave r; end /*found ? */
end /*c*/
end /*r*/
say right(' Done with Loops/Nested. ',50,'─')
say right(space('Target' not 'found:') targ, 33, '─')
/*stick a fork in it, we're done.*/