wrap-shape ( object -- shape )

Vocabulary

arrays.shaped

Inputs

object

an object

Outputs

shape

an object

Definition

IN: arrays.shaped

GENERIC: wrap-shape ( object -- shape )

Methods

USING: arrays arrays.shaped math ;

M: integer wrap-shape 1array <uniform-shape> ;


USING: arrays arrays.shaped grouping kernel sequences ;

M: sequence wrap-shape
    dup all-equal?
    [ [ length ] [ first ] bi 2array <uniform-shape> ]
    [ <abnormal-shape> ] if ;