近似値を印字するようにfixed-pointを修正してやった。 (define (fixed-point f first-guess) (define (close-enough? v1 v2) (< (abs (- v1 v2)) tolerance)) (define (try guess) (let ((next (f guess))) (display guess) (newline) (if (close-enough? g…

すごい勢いで愚痴をいいます 今日もTA。今週2回目のTAです。TAはバイトだとか言う人がいるけども、実際のところあんまし割りに合わない。TAのバイトは修士で1,200/hour。ぜいたく言うなこのうすらとんかち、と言われそうな値段ですが、実のところこれ、交通…

黄金比に対して、 よって、黄金比は変換の不動点。 で、不動点を求める以下の手続きを使って、を計算する。 (define (close-enough? x y) (< (abs (- x y)) 0.001)) (define tolerance 0.00001) (define (fixed-point f first-guess) (define (close-enough?…

＿＿＿_ ／ ＼ ／ _ノ ヽ､_ ＼ 一日寝坊したらたまったお… ／ oﾟ⌒ ⌒ﾟo ＼ こんなに読めるわけないお… | （__人__） | ＼ ｀ ⌒´ ／ ＿＿＿_ ／⌒ ⌒＼ ／（ ●） （●）＼ ／::::::⌒（__人__）⌒::::: ＼ だから、読んでないけど | |r┬-| | 全部読んだことにするお…

実際にやってみた。 gosh> (define (f g) (g 2)) f gosh> (f f) *** ERROR: invalid application: (2 2) Stack Trace: _______________________________________ 最初左のfを展開すると(f 2)になって、次にまたfを展開すると(2 2)となる。 処理系はわけわか…

なぁ、この研究が終わったら、またみんなで笑って暮らせるようになるよな。

nと互いに素で、nより小さい正整数の乗算。 まず、互いに素なことを調べるpredicateをつくる。 (define (gcd a b) (if (= b 0) a (gcd b (remainder a b)))) (define (comprime? a b) (= (gcd a b) 1)) これさえできれば、あとは2変数predicateを1変数predic…

filterの考えを取り入れるとaccumulateよりさらに一般的なものが得られるとか突然著者がいいだした。 範囲を指定して、その中の数のうち指定条件に合うものに対して関数を適用するとかなんとか。 とりあえず作る。 (define (filtered-accmulate combiner nul…

**いまの生活リズム 突然ですが、ぼくの今の生活リズムは2時に寝て6時に起きるのが理想です。ホントは3時間睡眠でいきたかったのだけれど、試してみたところ無理だった。だから最近4時間睡眠にしているのですが、これは意外と毎日カイテキに過ごせていて、サ…

accumulate再帰的プロセスばん。 (define (accumulate-recursive combiner null-value term a next b) (if (> a b) null-value (combiner (term a) (accumulate-recursive combiner null-value term (next a) next b))))

こんなaccumulateを定義すると、 (define (accumulate combiner null-value term a next b) (define (iter a result) (if (> a b) result (iter (next a) (combiner (term a) result)))) (iter a null-value)) sumもproductもこれつかって定義できるようにな…

バカと思われるかもしれませんが ふと思ったのだけれど、中央値と平均値ってどうやって使い分けたらいいんだろうなーとか思いました。じつはぼく、よくわかっていない。 なんとなく中央値のほうが便利ぽい気もする データの一般的な傾向とやらを見るのに使う…

問題1-31(a) - 理系学生日記のproductは反復的プロセスだったので、次に再帰的プロセスのproductかく。 (define (product-recursive term a next b) (if (> a b) 1 (* (term a) (product-recursive term (next a) next b)))) もちろん6!を計算する。 gosh> (…

まずはかけ算ばっかするproductを定義してみる。これはほとんど問題1-30 - 理系学生日記からパクった。 (define (product term a next b) (define (iter a result) (if (> a b) result (iter (next a) (* (term a) result)))) (iter a 1)) じっさいに1から6…

以下の条件すべてに合致するヒトビト。 自分とはまったく関係がないけど足跡がある。 性別は（大半が）女性である プロフィール欄がやけに長い その大半は「お小遣い稼ぎ」「サイドビジネス」のお話 もちろん「儲かっている」らしい 紹介文が「大事なマイミ…

sumを再帰的プロセスから反復的プロセスにかきなおしましょう。 (define (sum term a next b) (define (iter a result) (if (> a b) result (iter (next a) (+ (term a) result)))) (iter a 0)) 0から100まで足しまくって確認してみる。 gosh> (define (iden…

ぼくはとてもおなかが減っていました。誘われるようにファミマにふらっと立ち寄って、誘われるように肉まん買ったよ。肉まんというやつはとてもおいしいやつです。そして安い。とてもだいすき。 でもなんか家に帰って包み紙あけてみたら、カラシが入ってなか…

simpson法の実装。(- split 2)が汚い。もっといい方法があるんだろうけど。 (define (sum term a next b) (if (> a b) 0 (+ (term a) (sum term (next a) next b)))) (define (simpson f a b split) (define h (/ (- b (* 1.0 a)) split)) (define (y k) (f …

TAやるよ！ 今日から本格的に実験とかいう講義のティーチング・アシスタント（TA）を務めることになりました。実験で何をしてるかというと、フリップ・フロップ（FF）回路をつくっています。FFというのは、情報/電子を学ぶ人はたぶんだけどみんな知ってるよ…

Miller-Rabinテストで数nの素数性をテストするには、a 意味が取れないし、わからない ＞＜ とりあえず日本語でおｋ。

無駄な時間はとてもおおい ぼくは今日も強迫観念に駆られながら、今日はなにを書こっかなーとか考えて無駄に時間をすごしています。こういう時間はホントに無駄で、この十分だか数十分だかの間に、溜まった洗濯物を洗濯するとか、溜まったゴミを袋にいれると…

Carmichael数がフェルマーテストをクリアしてしまうことをかくにんします。 フェルマーテストは整数に関して、[tex:a (use srfi-19) (define (square x) (* x x)) (define (expmod base exp m) (cond ((= exp 0) 1) ((even? exp) (remainder (square (expmod…

全力でコーヒーです（2回目）

squareを使わずに*を使うと、以下の部分でexpmodが2度評価される。 (* (expmod base (/ exp 2) m) (expmod base (/ exp 2) m)) expmod自体はなため、この部分のオーダーはとなり結局

ひでさん帰還 ひでさんという人は研究室のOBさんなわけですが、もちろん就職している。週末に大阪来るよ！みたいな話があったのでドキドキしながら待ってたけど連絡なかったのであーみたいな感じになってたら、今日連絡がきた。もう週末じゃないよ！ RSS購読…

日本語でおｋ。

半年で自然と成長します ぼくという人は基本テキトーに生きていますから、昨日お酒を飲んだにもかかわらず、今日は昼からおっさんたちとお酒を飲んだりして、家に帰った後テレビのまえでぐったりしていた。でも、人というのは自然と成長していったり、抵抗力…

フェルマーテストで素数判定ははやくなる。 (use srfi-19) (use srfi-27) (define (even? n) (= (remainder n 2) 0)) (define (square x) (* x x)) (define (fermat-test n) (define (try-it a) (= (expmod a n n) a)) (try-it (+ 1 (random-integer (- n 1)…

概要 ゆーすけとかんちゃんさんの家に遊びにいくことができました。これはとてもすばらしい体験で、ぼくは鍋を食べたり梅酒を飲んだり花火をしたりしてちょうご機嫌だったのです。 なりゆき それは兵庫県山中の秘境、合宿を組んでネットワークの研究発表をし…

smallest-divisorをちょっとだけ早くしようとかいう問題ですが、1-1でもいいくらい簡単くさくて、nextを定義すればよいだけぽい。 (use srfi-19) (define (square x) (* x x)) (define (smallest-divisor n) (find-divisor n 2)) (define (find-divisor n te…