(3each) ( seq1 seq2 seq3 quot -- n quot' )


Vocabulary
sequences.private

Definition
USING: kernel math.order sequences ;

IN: sequences.private

: (3each) ( seq1 seq2 seq3 quot -- n quot' )
[
[ [ length ] tri@ min min ] [ [ 3nth-unsafe ] 3curry ]
3bi
] dip compose ; inline