reduction-coordinate ( coordinate axes keepdims? -- result )

Vocabulary

arrays.shaped.private

Inputs

coordinate	an object
axes	an object
keepdims?	an object

Outputs

result

an object

Definition

USING: arrays kernel sequences ;

IN: arrays.shaped.private

:: reduction-coordinate
    ( coordinate axes keepdims? -- result )
    coordinate [| index axis |
        axis axes member?
        [ keepdims? [ { 0 } ] [ { } ] if ] [ index 1array ] if
    ] map-index concat ;