3nested-map-as ( seq1 seq2 seq3 quot exemplar -- seq )

Vocabulary

sequences.extras

Inputs

seq1	an object
seq2	an object
seq3	an object
quot	an object
exemplar	an object

Outputs

seq

an object

Definition

USING: generalizations kernel math sequences ;

IN: sequences.extras

: 3nested-map-as ( seq1 seq2 seq3 quot exemplar -- seq )
    [ 3 nover [ length ] tri@ * * ] dip [
        new-resizable
        [ [ push ] curry compose 3nested-each ] keep
    ] keep like ; inline