Set consolidation: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added/changed whitespace and comments, used a template for the output section.) |
m (→{{header|REXX}}: changed a comment.) |
||
| Line 2,099: | Line 2,099: | ||
if x==',' then iterate; if x=='' then leave |
if x==',' then iterate; if x=='' then leave |
||
$= $ x /*build new.*/ |
$= $ x /*build new.*/ |
||
do until \isIn(x, !.set) |
do until \isIn(x, !.set); _= wordpos(x, !.set) |
||
_= wordpos(x, !.set) |
_= wordpos(x, !.set) |
||
!.set= subword(!.set, 1, _-1) ',' subword(!.set, _+1) /*purify set*/ |
!.set= subword(!.set, 1, _-1) ',' subword(!.set, _+1) /*purify set*/ |
||