2009-04-28から1日間の記事一覧

今日の夕飯

豚焼肉(弁当の残り) 豚肉とゴボウのキンピラ カボチャのオーブン焼き(とろけるチーズのせ) レバーとネギ炒め レバーとネギ炒めがうまく出来たのでメモ。 レバーは血抜きして一晩タレに漬ける。タレはニンニク,生姜,砂糖,醤油。 タレはちゃんと切っておく。(…

SICP問題2.6のおまけ

問題2.6では加算までだったが、 Web で他の人のを見たら加減乗除全て実装していたので確認してみる。まずは、乗算。 (define (church* m n) (lambda (f) (lambda (x) ((m (n f)) x)))) と思ったけど、引き算の想像がつかない Web の他人のを見ると-1する関数…

SICP問題2.6

Church数(Church numerals)の問題。 0と1を足す演算の定義 (define zero (lambda (f) (lambda (x) x))) (define (add-1 n) (lambda (f) (lambda (x) (f ((n f) x))))) ためしに実行してみる。 (add-1 zero) ; #<closure (add-1 add-1)> (zero add-1) ; #<closure (zero zero)> ん? 良く分からんので、ため</closure></closure>…

SICP問題2.5

問題の意味が良く理解できなかったが、 2 と 3 は互いに素であるので、(2^a)*(3^b) である整数を2で割り切れる回数がa, 3で割り切れる回数がbとなる。 ということで実装。 (define (cons x y) (* (expt 2 x) (expt 3 y))) (define (car z) (define (iter div…