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

Cleanup

Browse source
This commit is contained in:
Justin Ethier 2016-10-11 03:19:31 -04:00
parent d4d02cc2b9
commit 03416a31f9
1 changed files with 7 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -11,25 +11,15 @@
;;; > huski life.scm ;;; > huski life.scm
;;; ;;;
(import (scheme base) (import (scheme base)
; (example life)
; (example grid)
;; TODO:
(only (example life) life) (only (example life) life)
(rename (prefix (example grid) grid-) (rename (prefix (example grid) grid-)
(grid-make make-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 80) (life grid 80)