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


Vocabulary
minesweeper

Inputs
cellsan object
rowan object
colan object


Outputs
#minesan object


Definition
USING: accessors ;

IN: minesweeper

: adjacent-mines ( cells row col -- #mines )
[ mined?>> ] count-neighbors ;