map-strict-lower ( shaped quot -- shaped )

Vocabulary

arrays.shaped

Inputs

shaped	an object
quot	an object

Outputs

shaped

an object

Definition

USING: kernel math sequences ;

IN: arrays.shaped

: map-strict-lower ( shaped quot -- shaped )
    [ check-2d ] dip [ [ first2 first2 > ] ] dip [ when ] curry
    compose map-shaped-index ; inline