29 lines
727 B
Factor
29 lines
727 B
Factor
! Copyright (C) 2008 Alex Chapman
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors arrays kernel math sequences ;
|
|
IN: sequences.merged
|
|
|
|
TUPLE: merged seqs ;
|
|
C: <merged> merged
|
|
|
|
: <2merged> ( seq1 seq2 -- merged ) 2array <merged> ;
|
|
: <3merged> ( seq1 seq2 seq3 -- merged ) 3array <merged> ;
|
|
|
|
: merge ( seqs -- seq )
|
|
dup <merged> swap first like ;
|
|
|
|
: 2merge ( seq1 seq2 -- seq )
|
|
dupd <2merged> swap like ;
|
|
|
|
: 3merge ( seq1 seq2 seq3 -- seq )
|
|
pick [ <3merged> ] dip like ;
|
|
|
|
M: merged length seqs>> [ length ] map sum ;
|
|
|
|
M: merged virtual@ ( n seq -- n' seq' )
|
|
seqs>> [ length /mod ] [ nth ] bi ;
|
|
|
|
M: merged virtual-seq ( merged -- seq ) [ ] { } map-as ;
|
|
|
|
INSTANCE: merged virtual-sequence
|