From 595895c0bf1565510ed23e5c95863cafae1daea7 Mon Sep 17 00:00:00 2001 From: Henrique Alves Date: Sun, 5 May 2024 01:13:04 +0300 Subject: basic GoL --- scripts/gol.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'scripts/gol.scm') diff --git a/scripts/gol.scm b/scripts/gol.scm index f95dc91..7e10d2d 100644 --- a/scripts/gol.scm +++ b/scripts/gol.scm @@ -4,8 +4,10 @@ '((-1 . -1) (0 . -1) (1 . -1) (-1 . 0) (1 . 0) (-1 . 1) (0 . 1) (1 . 1))) (set! (current-cells '(1 . 1)) #t) -(set! (current-cells '(1 . 2)) #t) -(set! (current-cells '(1 . 3)) #t) +(set! (current-cells '(2 . 1)) #t) +(set! (current-cells '(3 . 1)) #t) +(set! (current-cells '(3 . 0)) #t) +(set! (current-cells '(2 . -1)) #t) (define sum-cells (lambda (c1 c2) -- cgit v1.2.3