shaped-array>array ( shaped-array -- array )

Vocabulary

arrays.shaped

Inputs

shaped-array

an object

Outputs

array

an object

Definition

USING: accessors grouping kernel math sequences ;

IN: arrays.shaped

: shaped-array>array ( shaped-array -- array )
    [ underlying>> ] [ shape>> ] bi dup [ zero? ] any?
    [ 2drop { } ]
    [ [ rest-slice reverse [ group ] each ] unless-empty ] if ;