map-shaped-index ( shaped quot -- shaped )

Vocabulary

arrays.shaped

Inputs

shaped	an object
quot	an object

Outputs

shaped

an object

Definition

USING: accessors assocs kernel sequences ;

IN: arrays.shaped

: map-shaped-index ( shaped quot -- shaped )
    over [
        [
            [ underlying>> ] [ shape>> iteration-indices ] bi
            zip
        ] dip map
    ] dip swap >>underlying ; inline