3length-iterator ( seq1 seq2 seq3 -- n quot )


Vocabulary
sequences.private

Inputs
seq1an object
seq2an object
seq3an object


Outputs
nan object
quotan object


Definition
USING: kernel math.order sequences ;

IN: sequences.private

: 3length-iterator ( seq1 seq2 seq3 -- n quot )
[ 3length min min check-length ] [ [ 3nth-unsafe ] 3curry ]
3bi ; inline