Set consolidation: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: changed the name of the function to reflect the task.) |
m (→{{header|REXX}}: lowercased a letter.) |
||
| Line 1,504: | Line 1,504: | ||
do until \isIn(x, !.set) |
do until \isIn(x, !.set) |
||
_=wordpos(x, !.set) |
_=wordpos(x, !.set) |
||
!.set=subword(!.set,1,_-1) ',' |
!.set=subword(!.set,1,_-1) ',' subword(!.set,_+1) /*purify set.*/ |
||
end /*until ¬isIn ··· */ |
end /*until ¬isIn ··· */ |
||
end /*items*/ |
end /*items*/ |
||