click-cells-around ( cells row col -- )

Vocabulary

minesweeper

Inputs

cells	an object
row	an object
col	an object

Outputs

None

Definition

USING: kernel math sequences ;

IN: minesweeper

:: click-cells-around ( cells row col -- )
    neighbors [
        first2 [ row + ] [ col + ] bi*
        :> ( row' col' ) cells row' col' cell-at
        [ cells row' col' click-cell-at drop ] when
    ] each ;