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

game-of-life: fix inevitable bug in faster code.

windows-high-dpi
John Benediktsson 2018-03-09 15:29:22 -08:00
parent 9e563c4103
commit 0c9086b385
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/game-of-life/game-of-life.factor
View File

@ -25,7 +25,7 @@ IN: game-of-life
[ i fixnum+fast ] [ j fixnum+fast ] bi*
{ fixnum fixnum } declare :> ( col row )
{
[ col i = not ] [ row i = not ]
[ col i = row j = and not ]
[ col 0 >= ] [ col cols < ]
[ row 0 >= ] [ row rows < ]
} 0&& [
@ -166,7 +166,7 @@ SYMBOL: last-click
] when ;
:: com-clear ( gadget -- )
gadget grid>> [ seq>> clear-bits ] each
gadget grid>> [ clear-bits ] each
gadget relayout-1 ;
:: com-random ( gadget -- )