2009-04-01から1ヶ月間の記事一覧

SICP問題1.42

composeの定義 (define (compose f g) (lambda (x) (f (g x)))) テスト ((compose square inc) 6) ; 49

SICP問題1.41

受け取った手続きを二回作用させる手続きdoubleの定義 (define (double f) (lambda (x) (f (f x)))) (((double (double double)) inc) 5)はどういう値を返すか? これは double を 2 回作用させる関数を 2 回作用させるため、(2^2)^2 つまり 引数を 16 回作用…

今日の夕飯

エビマヨネーズ(いなげやのお惣菜) ソース焼きそば キュウリ ホタテバター

はてなダイアリー市民

はてなでブログ書き始めて30日経過したようで、はてなダイアリー市民になってた。 書くこともあまりないけど、ダラダラ続けるかな。

SICP問題1.40

cubicの定義 (define (cubic a b c) (lambda (x) (+ (* x x x) (* a (* x x)) (* b x) c))) 三次式 (x^3) + a(x^2) + bx + cを定義 (define (test-cubic a b c x) (+ (* x x x) (* a (* x x)) (* b x) c)) newtons-methodと一緒に使用し、test-cubicの結果と…

SICP問題1.39

cont-frac にoperator を渡せるようにして、tan-cfを定義する (define (cont-frac-ope fn fd k ope) (define (iter-frac i result) (let ((n (fn i)) (d (fd i))) (if (= i 0) result (iter-frac (- i 1) (/ n (ope d result)))))) (iter-frac k 0) ) (defin…

今日の夕飯

牛筋とエリンギのトマト煮(昨日の残り) 鶏肉の中華風蒸し物のサラダ(昨日の残り+α) 豚肉とホウレンソウと卵炒め

ヘッドカバーガスケット交換

でも、ヘッドカバーからオイル漏れが判明したので、要ガスケット交換です。orz http://d.hatena.ne.jp/tmurata/20090405/1238935960 ということで横須賀の某所で交換作業をして頂きました。 これが問題のガスケット。紙です。パリパリになってます。 ヘッド…

今日の夕飯

牛筋とエリンギのトマト煮 マッシュポテト 中華サラダ(中華風蒸し鶏, キュウリ, レタス)

ツツジ

ツツジの花が咲き誇ってさ 駒込だったか そこらあたりの駅がとてもきれいでした ウラニーノというバンドの坂道という曲の冒頭部分です。 http://www.uranino.com/disc.htmlあたりからリンク辿るとこの部分が聴けますが、ツツジのシーズンに山手線の駒込駅で…

今日の夕飯

豚バラ,モヤシ,ネギの蒸し物(ごま油,塩,コショウ,醤油のタレ) 水菜と油揚げの煮びたし 鯵の干物 マーボ茄子(昨日の残り物)

ETC取付け

予約日になったのでETCを取り付けにNAP'Sに行ってきました。結局かかった費用は 項目 金額 ETC本体(JRM-12) 19000円 助成金 -15000円 ETCセットアップ工賃 2500円 取付け工賃 5000円 消費税 575円 小計 12075円 ETC取付けステー 3800円 消費税 190円 小計 39…

今日の夕飯

マーボ茄子 切り干し大根の煮物(平切大根,豚バラ肉,椎茸,茹で豚の茹で汁) 豚バラ肉と青梗菜の炒め物

SICP問題1.38

整数の割り算の答えだけってどうやって取るのか分からんのででっち上げる (define (divide-integer x y) (let ((r (remainder x y))) (if (= r 0) (/ x y) (/ (- x r) y)))) (define (euler k) (cont-frac (lambda (i) 1.0) (lambda (i) (if (= (remainder i…

SICP問題1.37

再帰的プロセスの cont-frac (define (cont-frac fn fd k) (define (recursive-frac i) (let ((n (fn i)) (d (fd i))) (if (= i k) (/ n d) (/ n (+ d (recursive-frac (+ i 1))))))) (recursive-frac 1) ) 4桁の精度の近似を得るのにどれくらいの大きさが必…

SICP問題1.36

修正した 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 next) (newline) (if (close-enough? guess next) next (try next)))) (t…

今日の夕飯

鶏モモ肉,牛蒡,ニンジン炒め ニンジン,エノキ,ネギのサラダ 茹で豚(タレはラー油) 豚コマ炒め(弁当の残り) ミャンマーのビール

SICP問題1.35

(fixed-point (lambda (x) (+ 1 (/ 1 x))) 1.0) ; => 1.6180327868852458 結果は 1.6180 と近似となっている

SICP問題1.34

fの定義 (define (f g) (g 2)) (f f)の評価結果。 (f f) ; *** ERROR: invalid application: (2 2) ; Stack Trace: ; _______________________________________ 考察。 (define (f g) (g 2)) は (define f (lambda (g) (g 2))) と表せる。すなわち引数で渡さ…

今日の夕飯

牛焼肉(弁当の余り) キュウリ ポークジンジャー(豚もも肉) 挽き肉とジャガイモのカレー

SICP問題1.33

線形再帰な filtered-accumulate (define (filtered-accumulate combiner null-value term a next b filter) (cond ((> a b) null-value) ((filter a) (combiner (term a) (filtered-accumulate combiner null-value term (next a) next b filter))) (else (…

SICP問題1.32

線形再帰な accumulate (define (accumulate combiner null-value term a next b) (if (> a b) null-value (combiner (term a) (accumulate combiner null-value term (next a) next b)))) 反復手続きな accumulate (define (accumulate combiner null-value…

SICP問題1.31

線形再帰な product (define (product term a next b) (if (> a b) 1 (* (term a) (product term (next a) next b)))) 反復手続きな product (define (product term a next b) (define (iter a result) (if (> a b) result (iter (next a) (* (term a) resul…

定額給付金

新宿区の定額給付金の申請書が先週末位に到着しました。 目的が違うのはもちろん承知しているのですが、これを処理する経費とか考えたら定額減税とかにしてもらった方が良い気がするんですけどねぇ。

今日の夕飯

鶏手羽元の唐揚 小松菜の辛し和え 木綿豆腐のダシのせ 豚肉炒め(弁当の残り) 枝豆 レンコンと豚肉炒め

失楽園 / 諸星大二郎

失楽園 (ジャンプスーパーコミックス)作者: 諸星大二郎出版社/メーカー: 創美社発売日: 1988/05/10メディア: コミック購入: 4人 クリック: 22回この商品を含むブログ (15件) を見る 今度見かけたらゲットしないと。 http://d.hatena.ne.jp/tmurata/20090327/…

SICP問題1.30

元のsum (define (sum term a next b) (if (> a b) 0 (+ (term a) (sum term (next a) next b)))) 反復的なsum。 (define (sum term a next b) (define (iter a result) (if (> a b) result (iter (next a) (+ (term a) result)))) (iter a 0))

SICP問題1.29

simpsonの公式 (define (my-simpson f a b n) (define (h) (/ (- b a) n)) (define (y k) (f (+ a (* k (h))))) (define (term k) (cond ((or (= k 0) (= k n)) (y k)) ((even? k) (* 2 (y k))) (else (* 4 (y k))))) (define (next i) (+ i 1)) (* (/ (h) 3…

今日の夕飯

柳ダコのカルパッチョ(ソースの材料はアンチョビ, 玉葱みじん切り, セロリみじん切り, パプリカみじん切り, オリーブオイル, 赤ワインビネガー, ライム, タイム, ローズマリー) アサリとネギの味噌炒め煮 中華おこわ風混ぜご飯(豚もも肉と背脂のみじん切り, …

フロントブレーキパッド交換

オイル漏れしてるので、天気は良いけどツーリングもアレだし、ということで洗車。 そういえばフロントのブレーキパッド減ってたよ、と指摘を受けてたので確認。 減ってるどころか、もうベースまで1mm切ってました。ということで即交換。 ちゃんとメンテしな…