Set consolidation: Difference between revisions
→{{header|Factor}}: Simplify.
(Add Factor) |
(→{{header|Factor}}: Simplify.) |
||
Line 818:
<lang factor>USING: arrays kernel sequences sets ;
dup pick first intersects?▼
[ [ unclip ] dip union comb ]
▲ dup pick first intersects?
] if ;
▲: comb ( x x -- x ) over empty? [ nip 1array ] [ (comb) ] if ;
: consolidate ( x -- x ) { } [ comb ] reduce ;</lang>
|