DouKaku?

(use util.list)
(use srfi-1)

(define (life-next-board board) ;盤面の更新
  (define (life-neighbours n) ;隣接セルのインデックス
    (define (ln-in x y)
      (+ (* (modulo x 10) 10) (modulo y 10)))
    (receive
     (x y)
     (quotient&remainder n 10)
     (list (ln-in (- x 1) (- y 1))
           (ln-in (- x 1) y)
           (ln-in (- x 1) (+ y 1))
           (ln-in x (- y 1))
           (ln-in x (+ y 1))
           (ln-in (+ x 1) (- y 1))
           (ln-in (+ x 1) y)
           (ln-in (+ x 1) (+ y 1)))))
  (define (life-live? n board) ;セルが生きているかどうか
    (= (list-ref board n) 1))
  (define (life-next-cell n board) ;セルの更新
    (let [(count
           (apply +
                  (map (lambda (x) (list-ref board x))
                       (life-neighbours n))))]
      (cond [(life-live? n board)
            (if (or (= count 2) (= count 3)) 1 0)]
            [else
            (if (= count 3) 1 0)])))
  (map (lambda (n) (life-next-cell n board))
       (iota 100)))

(define (life-print b t) ;出力用
  (begin
    (newline)
    (format #t "Time = ~d" t)
    (newline)
    (map print (slices b 10))))

(define (life-game b u-t) ;本体
  (define (lg-in b t)
    (let ((c (read-char)))
      (if (not (char=? #\e c))
          (unless (> t u-t)
            (begin
              (life-print b t)
              (lg-in (life-next-board b) (+ t 1)))))))
  (lg-in b 0))

(define b1 (list
            0 1 0 0 0 0 1 1 1 0
            0 0 0 0 1 0 0 1 1 0
            0 0 0 1 0 0 1 0 1 0
            1 0 1 1 0 0 1 0 0 0
            0 1 0 0 0 0 0 0 1 0
            1 0 0 0 1 0 1 1 0 1
            0 1 0 0 0 0 1 0 0 0
            0 0 0 0 0 0 0 0 0 1
            1 0 0 0 0 0 1 0 0 1
            0 0 0 0 1 1 0 0 1 0))

(life-game b1 10)