place-mines ( cells n -- cells )


Vocabulary
minesweeper

Inputs
cellsan object
nan object


Outputs
cellsan object


Definition
USING: accessors kernel math ;

IN: minesweeper

: place-mines ( cells n -- cells )
[ dup unmined-cell t >>mined? drop ] times ;