Set consolidation: Difference between revisions

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