reduction-shape ( dimensions axes keepdims? -- shape )


Vocabulary
arrays.shaped.private

Inputs
dimensionsan object
axesan object
keepdims?an object


Outputs
shapean object


Definition
USING: arrays kernel sequences ;

IN: arrays.shaped.private

:: reduction-shape ( dimensions axes keepdims? -- shape )
dimensions [| size axis |
axis axes member?
[ keepdims? [ { 1 } ] [ { } ] if ] [ size 1array ] if
] map-index concat ;