Anonymous user
Associative array/Merging: Difference between revisions
m
→{{header|REXX}}: added whitespace, elided a superfluous semicolon.
MaiconSoft (talk | contribs) No edit summary |
m (→{{header|REXX}}: added whitespace, elided a superfluous semicolon.) |
||
Line 940:
defAA: procedure expose $. @.; parse arg AAn; new= 'new' /*get AA name; set NEW.*/
do j=2 to arg(); parse value arg(j) with key val /*obtain key and value.*/
$.AAn.key= val
if wordpos(key, $.AAN.?keys)==0 then $.AAn.?keys= $.AAn.?keys key
/* [↑] add to key list if not in list.*/
$.new.key=
if wordpos(key, $.new.?keys)==0 then $.new.?keys= $.new.?keys key
/* [↑] add to key list if not in list.*/
@.wKey= max(@.wKey, length(key) ) /*find max width of a name of a key. */
|