(unrolled-2each) ( xseq yseq len quot -- len quot )


Vocabulary
sequences.unrolled.private

Inputs
xseqan object
yseqan object
lenan object
quotan object


Outputs
lenan object
quotan object


Definition
USING: kernel sequences.private ;

IN: sequences.unrolled.private

: (unrolled-2each) ( xseq yseq len quot -- len quot )
[ [ ] curry 2dip ] dip 2length-operator nip ; inline