(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