output-shape ( sa0 sa1 -- shape )


Vocabulary
arrays.shaped

Inputs
sa0an object
sa1an object


Outputs
shapean object


Definition
USING: accessors kernel math math.order sequences ;

IN: arrays.shaped

: output-shape ( sa0 sa1 -- shape )
[ shape>> ] bi@
[ 2dup [ zero? ] either? [ max ] [ 2drop 0 ] if ] 2map ;