#flagged ( cells -- n )


Vocabulary
minesweeper

Inputs
cellsan object


Outputs
nan object


Definition
USING: accessors kernel sequences ;

IN: minesweeper

: #flagged ( cells -- n )
[ [ state>> +flagged+ = ] count ] map-sum ;