http://www.thrudr.net/blog だめな子ですが頑張って成長してゆくのです。 Tue, 30 Sep 2008 15:34:44 +0900 http://wordpress.xwd.jp/?v=ME2.0.11 ja http://www.thrudr.net/blog/archives/54 http://www.thrudr.net/blog/archives/54#comments Wed, 01 Oct 2008 00:34:44 +0900 vvakame 電脳雑記 http://www.thrudr.net/blog/archives/54 ") (display s) (newline))))) (test out "hoge") (test in "fuga") [/scheme] あれー？ makeでもこけてなさそうだしmake testもちゃんと通ってそうに見えるよ... [1] http://lapangan.net/darwinports/index.php?PrivatePortfile%2Fypsilon [2] http://lapangan.net/darwinports/index.php?HowTo%2FPrivatePortfileTutorial [3] http://www.scribd.com/doc/2674173/MacPorts]]> http://www.thrudr.net/blog/archives/54/feed/ http://www.thrudr.net/blog/archives/53 http://www.thrudr.net/blog/archives/53#comments Mon, 29 Sep 2008 22:08:02 +0900 vvakame Scheme http://www.thrudr.net/blog/archives/53 http://www.thrudr.net/blog/archives/53/feed/ http://www.thrudr.net/blog/archives/52 http://www.thrudr.net/blog/archives/52#comments Thu, 04 Sep 2008 00:21:04 +0900 vvakame Ruby Java http://www.thrudr.net/blog/archives/52 http://www.thrudr.net/blog/archives/52/feed/ http://www.thrudr.net/blog/archives/51 http://www.thrudr.net/blog/archives/51#comments Wed, 03 Sep 2008 23:50:58 +0900 vvakame 電脳雑記 http://www.thrudr.net/blog/archives/51 http://www.thrudr.net/blog/archives/51/feed/ http://www.thrudr.net/blog/archives/50 http://www.thrudr.net/blog/archives/50#comments Sun, 31 Aug 2008 18:03:28 +0900 vvakame ぷろぐらむ 電脳雑記 http://www.thrudr.net/blog/archives/50 http://www.thrudr.net/blog/archives/50/feed/ http://www.thrudr.net/blog/archives/48 http://www.thrudr.net/blog/archives/48#comments Tue, 29 Jul 2008 01:45:18 +0900 vvakame 電脳雑記 http://www.thrudr.net/blog/archives/48 http://www.thrudr.net/blog/archives/48/feed/ http://www.thrudr.net/blog/archives/47 http://www.thrudr.net/blog/archives/47#comments Mon, 07 Jul 2008 23:15:38 +0900 vvakame Scheme http://www.thrudr.net/blog/archives/47 next) (if (fold (lambda (x y) (or x y)) #f (map (cut = neighbors ) keep)) e (make-element (element-x e) (element-y e) #f))) (define (dead->next) (if (fold (lambda (x y) (or x y)) #f (map (cut = neighbors ) birth)) (make-element (element-x e) (element-y e) #t) e)) (if (live? e) (live->next) (dead->next))) (map next-state field)) (define (play) (define (field-chain field) (cons field (delay (field-chain (game-next field))))) (define field-list (field-chain (randomize-field (make-field)))) (define count ((lambda () (define counter 0) (define (inc) (set! counter (+ counter 1)) counter) inc))) (define (iter) (display (count)) (newline) (print-field (car field-list)) (display "if you want to exit. press e.") (newline) (if (char=? #\e (read-char)) (exit 0)) (set! field-list (force (cdr field-list))) (iter)) (iter)) (play) [/scheme] ・CPSっぽいやり方じゃなくなった ・無限ストリームっぽいものになった play内部のcountの作り方に1〜2分悩んだ(おばか [scheme] (define (play) (define (field-chain field) (cons field (delay (field-chain (game-next field))))) (define field-list (field-chain (randomize-field (make-field)))) (define (iter count) (display count) (newline) (print-field (car field-list)) (display "if you want to exit. press e.") (newline) (if (char=? #\e (read-char)) (exit 0)) (set! field-list (force (cdr field-list))) (iter (+ count 1))) (iter 1)) [/scheme] playの定義はこっちのが綺麗ですよねーってなるよねぇ…]]> http://www.thrudr.net/blog/archives/47/feed/ http://www.thrudr.net/blog/archives/46 http://www.thrudr.net/blog/archives/46#comments Thu, 03 Jul 2008 22:05:31 +0900 vvakame Scheme http://www.thrudr.net/blog/archives/46 next) (if (fold (lambda (x y) (or x y)) #f (map (cut = neighbors ) keep)) e (make-element (element-x e) (element-y e) #f))) (define (dead->next) (if (fold (lambda (x y) (or x y)) #f (map (cut = neighbors ) birth)) (make-element (element-x e) (element-y e) #t) e)) (if (live? e) (live->next) (dead->next))) (map next-state field)) (define next (step-exec (randomize-field (make-field)) game-next (lambda (e) (print-field e)))) (let loop ((c (read-char)) (count 1)) (if (char=? #\e c) (exit 0) (begin (display count) (newline) (set! next (next)) (display "next -> any keys.") (newline) (display "exit -> press e.") (newline) (loop (read-char) (+ count 1))))) [/scheme] ・のりしろがなくなった ・make-element やら element-* を使ってればセルの表現を気にしないでよくなった(相変わらず全体はセルのリストだ 毎回get-neighborsしてるのはバカらしい気もするけどまぁいいや]]> http://www.thrudr.net/blog/archives/46/feed/ http://www.thrudr.net/blog/archives/45 http://www.thrudr.net/blog/archives/45#comments Fri, 27 Jun 2008 03:02:55 +0900 vvakame Scheme http://www.thrudr.net/blog/archives/45 http://www.thrudr.net/blog/archives/45/feed/ http://www.thrudr.net/blog/archives/44 http://www.thrudr.net/blog/archives/44#comments Fri, 27 Jun 2008 02:47:37 +0900 vvakame Scheme http://www.thrudr.net/blog/archives/44 http://www.thrudr.net/blog/archives/44/feed/