vallog: 昨日のライフゲームのソース

2010/09/14

Scheme（gauche）で書かれています。

UI はまだありません。取り敢えずの使用方法。

10×10 でランダムな配置から始める。

(define lifegame (make-auto-step-lifegame 10 10))
(print-lifegame-table (lifegame :next))

30×30 でランダムな配置から始める。

(define erl (endless-repeat-lifegame (make-auto-step-lifegame 30 30)))
(erl)

データから読込む。読み込むデータが PULSER の場合。

(define pl (endless-repeat-lifegame (const->auto-step-lifegame PULSER)))
(pl)

以下ソース。

取りあえず用意したデータ。

追記

改めて書き直してみました。