check-shape-domain ( seq -- seq )

Vocabulary

arrays.shaped

Inputs

seq

an object

Outputs

seq

an object

Definition

USING: kernel math sequences ;

IN: arrays.shaped

: check-shape-domain ( seq -- seq )
    dup [ integer? ] all?
    [ dup noninteger-shape-components ] unless dup [ 0 < ] any?
    [ no-negative-shape-components ] when ;