blocks-max ( blocks quot -- max )


Vocabulary
tetris.tetromino

Inputs
blocksan object
quotan object


Outputs
maxan object


Definition
USING: math sequences ;

IN: tetris.tetromino

: blocks-max ( blocks quot -- max ) map maximum 1 + ; inline