2010-02-01から1ヶ月間の記事一覧

今日の夕飯

鍋 刺身(サーモン,茹でエビ,イカ) 焼肉(弁当の残り) 鍋の作り方 昆布で出汁をとり、醤油,味醂,塩で味をつける 豚挽き肉に生姜,塩,醤油を入れ練って団子にする 1に2を入れて茹でる 3に焼き豆腐を入れる 4にキャベツ,椎茸,シメジを入れて火を通す 5に春菊を入…

セグウェイ特区

ちょっと前の記事だけど。 つくば市、ロボット特区に 「セグウェイ」も公道OK ロボット特区かぁ。セグウェイ乗りて〜。

SICP問題3.40

(define x 10) (parallel-execute (lambda () (set! x (* x x))) (lambda () (set! x (* x x x)))) の実行結果となりうるxの可能性は、以下のようになる P1,P2をそれぞれプロセスに分割すると P1 は X1-1: (* x x)の最初のxへのアクセス X1-2: (* x x)の二番…

SICP問題3.39

(define x 10) (define s (make-serializer)) (parallel-execute (lambda () (set! x ((s (lambda () (* x x)))))) (s (lambda () (set! x (+ x 1))))) とした時は、 (* x x) 中での値の変化と、 (set! x (+ x 1)) の間での値の変化が起こらなくなるので、 1…

SICP問題3.38

Peter, Paul, Mary (ピーター・ポール&マリーのこと?) が最初に100ドルあった共同銀行口座に以下の操作を行った場合の動き ; Peter (set! balance (+ balance 10)) ; Paul (set! balance (- balance 20)) ; Mary (set! balance (- balance (/ balance 2))) a…

今日の夕飯

豚肉と野菜炒め トンカツ タコのマリネ 豚肉と野菜炒めとトンカツは妻作タコのマリネの作り方 フライパンにベイリーフ,ニンニクの微塵切り,オリーブオイルを入れて火をつけて香りを出す 1にバルサミコ酢を入れて混ぜる ボウルに切ったタコ,松の実,塩,胡椒,ロ…

SICP問題3.37

Lispは手続きの値として合成オブジェクトを返すことが出来るので、命令形流儀の制約言語を式指導の流儀に変換できるというテーマ。元のcelesius-fahrenheit-converter 手続き(教科書で定義) (define (celsius-fahrenheit-converter c f) (let ((u (make-conn…

SICP問題3.36

(define a (make-connector)) (define b (make-connector)) (set-value! a 10 'user) set-value!評価中時点でコネクタの局所手続きの中の (for-each-except setter inform-about-value constraints) が評価される環境を示す環境図環境図ってどこまで描けば良…

昨日の夜は久々の雪らしい雪でしたね。 朝になったら大分解けてたので残念でした。

今日の夕飯

カイワレ大根 ウズラの玉子フライ(いなげやのお惣菜) 鶏肉とジャガイモのクリームシチュー オクラのベーコン巻き(市販品を焼いたもの) 鶏肉とジャガイモのクリームシチューの作り方 鶏ガラスープにローズマリー,オレガノ,セージ,クローブ,砂糖,塩,ベイリーフ…

お土産

息子の修学旅行土産。 俺もたまには沖縄帰りたいなぁ〜。

今日の夕飯

モヤシ炒め 牛ステーキ モヤシ炒めの作り方 フライパンにゴマ油を入れ豚肉を炒める 1にニンジン,椎茸のスライスを加えて炒める 2にモヤシを加えて炒める 塩,胡椒,味醂,醤油で味をつける 牛ステーキの作り方 牛肉に塩,胡椒する フライパンにオリーブオイルを…

SICP問題3.35

Ben Bitdiddle のsquarer手続き(穴埋め問題) (define (square x) (* x x)) (define (squarer a b) (define (process-new-value) (if (has-value? b) (if (< (get-value b) 0) (error "square less than 0 -- SQUARER" (get-value b)) (set-value! a (sqrt (g…

SICP問題3.34

Louis Reasoner が定義した制約装置である平方器の重要な欠点 (define (squarer a b) (multiplier a a b)) とりあえず実験 (define a1 (make-connector)) ; a1 (define a2 (make-connector)) ; a2 (probe "a1" a1) ; #<closure (probe me)> (probe "a2" a2) ; #<closure (probe me)> (squarer a1 a2) </closure></closure>…