Handbook
Glossary
mark-cell-at ( cells row col -- ? )
Vocabulary
minesweeper
Inputs
cells
an
object
row
an
object
col
an
object
Outputs
?
an
object
Definition
USING:
accessors
combinators
kernel
;
IN:
minesweeper
::
mark-cell-at
( cells row col -- ? )
cells row col
cell-at
[
dup
state>>
{
{
+clicked+
[
+clicked+
]
}
{
+flagged+
[
+question+
]
}
{
+question+
[
f
]
}
{
f
[
+flagged+
]
}
}
case
>>state
drop
t
]
[
f
]
if*
;