check-rows ( board -- n )

Vocabulary

tetris.board

Inputs

board

an object

Outputs

n

an 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 ;