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

game-of-life: little bit more.

windows-high-dpi
John Benediktsson 2018-03-12 08:47:31 -07:00
parent bf010ba1a5
commit 252ce232cf
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,10 +3,10 @@
USING: accessors arrays assocs bit-arrays byte-arrays calendar USING: accessors arrays assocs bit-arrays byte-arrays calendar
colors.constants combinators fry kernel kernel.private locals colors.constants combinators fry kernel kernel.private locals
math math.order math.private math.ranges namespaces opengl math math.order math.ranges namespaces opengl random sequences
random sequences sequences.private timers ui ui.commands sequences.private timers ui ui.commands ui.gadgets
ui.gadgets ui.gadgets.toolbar ui.gadgets.tracks ui.gestures ui.gadgets.toolbar ui.gadgets.tracks ui.gestures ui.render words
ui.render words ; ;
IN: game-of-life IN: game-of-life
@ -43,9 +43,9 @@ IN: game-of-life
i i
i 1 + 0 max-cols wraparound i 1 + 0 max-cols wraparound
[ [ above [ 1 fixnum+fast ] change-nth-unsafe ] tri@ ] [ [ above [ 1 + ] change-nth-unsafe ] tri@ ]
[ nip [ same [ 1 fixnum+fast ] change-nth-unsafe ] bi@ ] [ nip [ same [ 1 + ] change-nth-unsafe ] bi@ ]
[ [ below [ 1 fixnum+fast ] change-nth-unsafe ] tri@ ] [ [ below [ 1 + ] change-nth-unsafe ] tri@ ]
3tri 3tri
] when ] when
] each-index ] each-index