grid-width ( grid element-quot -- width )


Vocabulary
images.viewer.private

Inputs
gridan object
element-quotan object


Outputs
widthan object


Definition
USING: math sequences ;

IN: images.viewer.private

:: grid-width ( grid element-quot -- width )
grid [ 0 ] [ first element-quot [ + ] map-reduce ] if-empty
; inline