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