#mines ( cells -- n )


Vocabulary
minesweeper

Inputs
cellsan object


Outputs
nan object


Definition
USING: accessors sequences ;

IN: minesweeper

: #mines ( cells -- n ) [ [ mined?>> ] count ] map-sum ;