2length-operator ( seq1 seq2 quot -- n quot' )


Vocabulary
sequences.private

Inputs
seq1an object
seq2an object
quotan object


Outputs
nan object
quot'an object


Definition
USING: kernel ;

IN: sequences.private

: 2length-operator ( seq1 seq2 quot -- n quot' )
[ 2length-iterator ] dip compose ; inline