update-counts ( cells -- cells )


Vocabulary
minesweeper

Inputs
cellsan object


Outputs
cellsan object


Definition
USING: accessors ;

IN: minesweeper

:: update-counts ( cells -- cells )
cells [| row col cell |
cells row col adjacent-mines cell #adjacent<<
] each-cell cells ;