adjacent-flags ( cells row col -- #flags )

Vocabulary

minesweeper

Inputs

cells	an object
row	an object
col	an object

Outputs

#flags

an object

Definition

USING: accessors kernel ;

IN: minesweeper

: adjacent-flags ( cells row col -- #flags )
    [ state>> +flagged+ = ] count-neighbors ;