check-rows ( board -- n )


Vocabulary
tetris.board

Inputs
boardan object


Outputs
nan object


Definition
USING: accessors kernel math sequences ;

IN: tetris.board

: check-rows ( board -- n )
remove-full-rows dup height>> over rows>> length -
swap top-up-rows ;