Set consolidation: Difference between revisions
Content added Content deleted
m ({{out}}) |
m (→{{header|REXX}}: change the case for subroutines titles.) |
||
Line 1,385: | Line 1,385: | ||
end /*j*/ |
end /*j*/ |
||
exit /*stick a fork in it, we're done.*/ |
exit /*stick a fork in it, we're done.*/ |
||
/* |
/*──────────────────────────────────SETCOMBO subroutine─────────────────*/ |
||
SETcombo: procedure; parse arg bunch; n=words(bunch); newBunch= |
SETcombo: procedure; parse arg bunch; n=words(bunch); newBunch= |
||
say ' the old sets=' space(bunch) |
say ' the old sets=' space(bunch) |
||
Line 1,424: | Line 1,424: | ||
say ' the new sets=' newBunch; say |
say ' the new sets=' newBunch; say |
||
return |
return |
||
/* |
/*──────────────────────────────────ISIN subroutine─────────────────────*/ |
||
isIn: return wordpos(arg(1), arg(2))\==0 /*is (word) arg1 in set arg2? */</lang> |
isIn: return wordpos(arg(1), arg(2))\==0 /*is (word) arg1 in set arg2? */</lang> |
||
{{out}} when using the default supplied sample sets: |
{{out}} when using the default supplied sample sets: |