2009-10-06から1日間の記事一覧
実装 #!/usr/local/bin/gosh ;; -*- coding: utf-8 -*- (use ggc.debug.trace) (use math.mt-random) (define nil '()) (define (square n) (* n n)) ;;prime? の実装 (define (smallest-divisor n) (find-divisor n 2)) (define (divides? a b) (= (remaind…
このときの俺、実行結果にコメントを書くのが流行っていたようだ。 #!/usr/local/bin/gosh ;; -*- coding: utf-8 -*- (use ggc.debug.trace) (use math.mt-random) (define nil '()) (define (accumulate op initial sequence) (if (null? sequence) initial…
たしかポイントは、行と列をどうやって表すか?的なような事だったような気がする。 あとは、safeはけっこうごちゃごちゃやらないといけない。ので凄く難しい。 実装 #!/usr/local/bin/gosh ;; -*- coding: utf-8 -*- (use ggc.debug.trace) (use math.mt-ra…
もう何週間も前にやったSICPの問題の自分の理解なんてわすれてしまった。。。 ということで、とりあえず、ソースコードぐらいは載せておくことにするとする。 まったく俺は残念な男であるが better than nothing!!! だと思うのでね。 ちなみにタイトルは北方…