upper ( shape obj -- shaped )


Vocabulary
arrays.shaped

Inputs
shapean object
objan object


Outputs
shapedan object


Definition
USING: kernel ;

IN: arrays.shaped

: upper ( shape obj -- shaped )
[ zeros check-2d ] dip [ [ drop ] ] dip [ ] curry compose
map-upper ;