Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 13:49:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Allow this program to compile

Browse source
This commit is contained in:
Justin Ethier 2016-04-13 21:35:09 -04:00
parent b29eba2314
commit 1ba5752582
1 changed files with 19 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
examples/game-of-life/life.scm
View file

@ -11,16 +11,25 @@
;;; > huski life.scm ;;; > huski life.scm
;;; ;;;
(import (scheme base) (import (scheme base)
(only (example life) life) (example life)
(rename (prefix (example grid) grid-) (example grid))
(grid-make make-grid))) ;; TODO:
; (only (example life) life)
; (rename (prefix (example grid) grid-)
; (grid-make make-grid)))
;; Initialize a grid with a glider. ;; Initialize a grid with a glider.
(define grid (make-grid 24 24)) ;(define grid (make-grid 24 24))
(grid-put! grid 1 1 #t) ;(grid-put! grid 1 1 #t)
(grid-put! grid 2 2 #t) ;(grid-put! grid 2 2 #t)
(grid-put! grid 3 0 #t) ;(grid-put! grid 3 0 #t)
(grid-put! grid 3 1 #t) ;(grid-put! grid 3 1 #t)
(grid-put! grid 3 2 #t) ;(grid-put! grid 3 2 #t)
(define grid (make 24 24))
(put! grid 1 1 #t)
(put! grid 2 2 #t)
(put! grid 3 0 #t)
(put! grid 3 1 #t)
(put! grid 3 2 #t)
;; Run for x iterations. ;; Run for x iterations.
(life grid 10) ;80 (life grid 80)