sequence<=> ( seq1 seq2 -- <=> )


Vocabulary
sequences.private

Inputs
seq1an object
seq2an object


Outputs
<=>an object


Definition
USING: kernel math.order sequences ;

IN: sequences.private

: sequence<=> ( seq1 seq2 -- <=> )
[ mismatch ] 2keep pick
[ 2nth-unsafe <=> ] [ [ length ] compare nip ] if ; inline