nmap-reduce ( map-quot reduce-quot n -- quot )

Vocabulary

sequences.generalizations

Inputs

map-quot	a quotation with stack effect ( element... -- intermediate )
reduce-quot	a quotation with stack effect ( prev intermediate -- next )
n	an integer

Outputs

None

Word description

A generalization of map-reduce that can be applied to any number of sequences.

Definition

USING: generalizations kernel math sequences ;

IN: sequences.generalizations

MACRO: nmap-reduce ( map-quot reduce-quot n -- quot )
    -rot dupd compose overd over [
        [ [ [ [ first ] ] ] dip [ napply ] curry compose ] dip
        [ 1 ] compose compose
    ] 3dip [ [ [ nkeep ] 2curry ] dip ] dip
    [ (neach) each-integer-from ] 2curry compose ;