3length-operator ( seq1 seq2 seq3 quot -- n quot' )


Vocabulary
sequences.private

Inputs
seq1an object
seq2an object
seq3an object
quotan object


Outputs
nan object
quot'an object


Definition
USING: kernel ;

IN: sequences.private

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