Anonymous user
Set consolidation: Difference between revisions
m
→{{header|REXX}}: changed the name of the function to reflect the task.
m (→{{header|REXX}}: added/changed whitespace and comments, made other cosmetic changes.) |
m (→{{header|REXX}}: changed the name of the function to reflect the task.) |
||
Line 1,472:
do j=1 while @.j\=='' /*traipse through each of sample sets. */
call
end /*j*/
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────ISIN SUBRoutine───────────────────────────*/
isIn: return wordpos(arg(1), arg(2))\==0 /*is (word) arg1 in set arg2 ? */
/*──────────────────────────────────SETCONSOLIDATE subroutine─────────────────*/
say ' the old set=' space(old)
| |||