だめな子

こーゆーイベントって行ったことないから楽しみだー
すみっこでわくわくしながら帰ってこようと思います！
お友達ほしい！けど知らない人こわい！ｷｬｰｷｬｰ

Read the rest of LL Futureチケット買いました

PLAIN TEXT
SCHEME:

(use srfi-1)

(use srfi-27)

(define width 14)

(define height 10)

(define population 0.3)

(define birth '(3))

(define keep '(2 3))

(define element-x car)

(define element-y cadr)

(define element-value caddr)

(define (make-element x y v) (list x y v))

(define (make-field)

    (define (flatten x) (fold-right append '() x))

    (map

        (lambda (e) (make-element (car e) (cadr e) #f))

        (zip

  [...]

Read the rest of SchemeでLifeGame v3

他の人の投稿も見てみた結果こうなった
PLAIN TEXT
SCHEME:

(use srfi-1)

(use srfi-27)

(define width 14)

(define height 10)

(define population 0.3)

(define birth '(3))

(define keep '(2 3))

(define element-x car)

(define element-y cadr)

(define element-value caddr)

(define (make-element x y v) (list x y v))

(define (step-exec value next proc)

    (define (iter value cc)

        (cc value

            (lambda () (iter (next value) cc))))

    [...]

Read the rest of SchemeでLifeGame v2