Hash join: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added/changed whitespace and comments.) |
Walterpachl (talk | contribs) m (→{{header|REXX}}: a typo) |
||
| Line 1,412: | Line 1,412: | ||
#=#-1 /*adjust for the DO loop (#) overage.*/ |
#=#-1 /*adjust for the DO loop (#) overage.*/ |
||
do j=1 while R.j\=='' /*process a nemesis for a name element.*/ |
do j=1 while R.j\=='' /*process a nemesis for a name element.*/ |
||
parse var R.j x nemesis /*extract the name and |
parse var R.j x nemesis /*extract the name and its nemesis. */ |
||
if hash.x=='' then do; #=#+1 /*Not in hash? Then a new name; bump #*/ |
if hash.x=='' then do; #=#+1 /*Not in hash? Then a new name; bump #*/ |
||
S.#=',' x /*add a new name to the S table. */ |
S.#=',' x /*add a new name to the S table. */ |
||