Set consolidation: Difference between revisions

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