Anonymous user
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*/
| |||