cell-at ( cells row col -- cell/f )


Vocabulary
minesweeper

Inputs
cellsan object
rowan object
colan object


Outputs
cell/fan object


Definition
USING: kernel sequences ;

IN: minesweeper

:: cell-at ( cells row col -- cell/f )
row cells ?nth [ col swap ?nth ] [ f ] if* ;