steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

minesweeper: click cells around question but not flagged.

factor-shell
John Benediktsson 2018-02-11 10:02:36 -08:00
parent 9c22098dec
commit 52a503fef3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/minesweeper/minesweeper.factor
View File

@ -29,9 +29,6 @@ TUPLE: cell #adjacent mined? state ;
: cells-dim ( cells -- rows cols )
[ length ] [ first length ] bi ;
: unmined-cell ( cells -- cell )
f [ dup mined?>> ] [ drop dup random random ] do while nip ;
: #mines ( cells -- n )
[ [ mined?>> ] count ] map-sum ;
@ -41,6 +38,9 @@ TUPLE: cell #adjacent mined? state ;
: #mines-remaining ( cells -- n )
[ #mines ] [ #flagged ] bi - ;
: unmined-cell ( cells -- cell )
f [ dup mined?>> ] [ drop dup random random ] do while nip ;
: place-mines ( cells n -- cells )
[ dup unmined-cell t >>mined? drop ] times ;
@ -81,7 +81,7 @@ DEFER: click-cell-at
neighbors [
first2 [ row + ] [ col + ] bi* :> ( row' col' )
cells row' col' cell-at [
{ [ mined?>> ] [ state>> +question+ = ] } 1|| [
{ [ mined?>> ] [ state>> +flagged+ = ] } 1|| [
cells row' col' click-cell-at drop
] unless
] when*