normalize-axes ( axes rank -- normalized )

Vocabulary

arrays.shaped.private

Inputs

axes	an object
rank	an object

Outputs

normalized

an object

Definition

USING: arrays arrays.shaped kernel math sequences sets ;

IN: arrays.shaped.private

:: normalize-axes ( axes rank -- normalized )
    axes [ dup integer? [ 1array ] when ] [ rank <iota> ] if*
    [ rank normalize-axis ] map
    >array :> normalized normalized members length normalized
    length = [ normalized duplicate-shaped-axes ] unless
    normalized ;