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: accessors arrays.shaped grouping kernel sequences ;

M: sequence wrap-shape
    dup all-equal? [
        dup first wrap-shape dup uniform-shape?
        [ shape>> swap length prefix <uniform-shape> ]
        [ drop <abnormal-shape> ] if
    ] [ <abnormal-shape> ] if ;