aligned-shapes ( sa0 sa1 -- shape0 shape1 )

Vocabulary

arrays.shaped.private

Inputs

sa0	an object
sa1	an object

Outputs

shape0	an object
shape1	an object

Definition

USING: accessors math.order sequences ;

IN: arrays.shaped.private

:: aligned-shapes ( sa0 sa1 -- shape0 shape1 )
    sa0 shape>> :> shape0 sa1 shape>> :> shape1 shape0 length
    shape1 length max :> rank shape0 rank 1 pad-head
    shape1 rank 1 pad-head ;