From 252ce232cffbe2b42d2876bbb25e806264cc90e8 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 12 Mar 2018 08:47:31 -0700 Subject: [PATCH] game-of-life: little bit more. --- extra/game-of-life/game-of-life.factor | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/extra/game-of-life/game-of-life.factor b/extra/game-of-life/game-of-life.factor index 2d50874fb0..fc6afdccf7 100644 --- a/extra/game-of-life/game-of-life.factor +++ b/extra/game-of-life/game-of-life.factor @@ -3,10 +3,10 @@ USING: accessors arrays assocs bit-arrays byte-arrays calendar colors.constants combinators fry kernel kernel.private locals -math math.order math.private math.ranges namespaces opengl -random sequences sequences.private timers ui ui.commands -ui.gadgets ui.gadgets.toolbar ui.gadgets.tracks ui.gestures -ui.render words ; +math math.order math.ranges namespaces opengl random sequences +sequences.private timers ui ui.commands ui.gadgets +ui.gadgets.toolbar ui.gadgets.tracks ui.gestures ui.render words +; IN: game-of-life @@ -43,9 +43,9 @@ IN: game-of-life i i 1 + 0 max-cols wraparound - [ [ above [ 1 fixnum+fast ] change-nth-unsafe ] tri@ ] - [ nip [ same [ 1 fixnum+fast ] change-nth-unsafe ] bi@ ] - [ [ below [ 1 fixnum+fast ] change-nth-unsafe ] tri@ ] + [ [ above [ 1 + ] change-nth-unsafe ] tri@ ] + [ nip [ same [ 1 + ] change-nth-unsafe ] bi@ ] + [ [ below [ 1 + ] change-nth-unsafe ] tri@ ] 3tri ] when ] each-index