unmined-cell ( cells -- cell )


Vocabulary
minesweeper

Inputs
cellsan object


Outputs
cellan object


Definition
USING: accessors combinators.smart kernel random ;

IN: minesweeper

: unmined-cell ( cells -- cell )
[ random random dup mined?>> ] curry smart-loop ;