今日もチャリで散歩。秋葉原まで行ってきました。秋月電子で太陽電池見て来ただけですが。 ということで秋葉原の辺りの名所ということで、 湯島聖堂と 神田明神のエビス様。 こちらは帰り道の神田川。高田馬場の近くです。

カニグラタン 豚モツ酢 キュウリ 春巻き(昨日の残り) 卵焼き ノレソレ 本マグロの刺身 柳ダコの刺身 パンチェッタ 酒のツマミばかりで作ってないなぁ。

おニューな自転車の試乗を兼ねて玉川上水沿いをサイクリング。 桜は散ってるけど、まさに桜上水な桜上水。 まだ咲き続けるヤエザクラ。 ということで今日は日向は暑い位です。

三年程乗ってた自転車の車軸か何かが折れたらしく、リアタイヤがガタガタに。 ということで、新たに自転車を購入。 カッティングシートで名前も付けてみた。

ニラレバの卵とじ(昨日の残り物にニラを追加) 春巻き(昨日の残り物の味を調整) 鶏もも肉の紹興酒蒸し

expmodeの修正 (define (my-expmod base exp m) (define (sqrt-test a n) (if (and (< 1 a) (< a (- n 1))) (if (= (remainder (square a) n) 1) 0 a) a)) (cond ((= exp 0) 1) ((= (sqrt-test base m) 0) 0) (else (if (even? exp) (remainder (square (my-…

レバニラ炒め 鶏挽き肉,ニンジン,エノキ,キンカンの炒め煮(カレー風味) レバは片栗粉でなく小麦粉をはたいてみた。こっちの方が良い感じ。

Carmichael数をテストする関数 (define (carmichael-test n) (define (iter a n) (cond ((>= a n) #t) ((= a (expmod a n n)) (iter (+ a 1) n)) (else #f)) ) (if (<= n 2) #f (iter 1 n)) テスト。出てないけど、素数については一応、テスト済。 (carmicha…

Louisのプログラムではexpが偶数の場合に、(expmod base (/ exp 2) m)を2回評価することになる。このため偶数になるたびに木構造で分岐してしまい、Θ(2^log n)→Θ(n)のプロセスになってしまっている。

元のexpmod (define (expmod base exp m) (cond ((= exp 0) 1) ((even? exp) (remainder (square (expmod base (/ exp 2) m)) m)) (else (remainder (* base (expmod base (- exp 1) m)) m)))) 書き直したexpmod (define (expmod base exp m) (remainder (fa…

オクラの豚肉巻き キュウリ カボチャのオーブン焼きチーズのせ 玉葱と豚肉の味噌炒め目玉焼きのせ

FermatテストはΘ(log n)の増加なので1,000,000近くの素数をテストする時間は1,000近くの素数をテストする時間の2倍かかると思われる。 んだけど、前の問題と同じく精度がアレなので(以下ｒｙａ で、人の答えを参照してみると 実験では、以上のように、2倍で…

とりあえず修正版。 (define (next n) (if (= n 2) 3 (+ n 2))) (define (smallest-divisor n) (find-divisor n 2)) (define (find-divisor n test-divisor) (cond ((> (square test-divisor) n) n) ((divides? test-divisor n) test-divisor) (else (find-d…

夜桜。 今日の夜は暖かく風もなく桜が綺麗でした。満開の散り始めですね。 明日からは風が吹けば桜吹雪状態かも。

牛ステーキ キュウリ 挽き肉と厚揚げの炒め物(昨日の残り物) トマトと卵とホウレンソウの炒め物

gaucheにはruntime がないのでhttp://choklog.jp/mahata_dev/1759/を参考にさせて頂き、定義しました。 (define (runtime) (use srfi-11) ;;to get of the declaration of 'let-values' (let-values (((a b) (sys-gettimeofday))) (+ (* a 1000000) b))) htt…

; random がナサゲなので定義 (define (random x) (modulo (sys-random) x) ) ; true も falseもナサゲなので定義 (define (true) (#t)) (define (false) (#f)) で、問題 (smallest-divisor 199) ; => 199 (smallest-divisor 1999) ; => 1999 (smallest-divi…

会計のルールはこの3つしかない (新書y)作者: 石川淳一,松本武洋出版社/メーカー: 洋泉社発売日: 2008/04/01メディア: 新書購入: 6人 クリック: 175回この商品を含むブログ (27件) を見る読了。 会計のルールは以下の3つに集約されるらしい。 "ぱなし"と"ぱ…

手羽元のニンニク醤油煮 厚揚げ,玉蒟蒻と挽き肉炒め(玉葱,きくらげ,ピーマン入り) レタスサラダ

gcd の定義 (define (gcd a b) (if (= b 0) a (gcd b (remainder a b)))) 正規順序 (gcd 206 4) => (if (= 40 0) 206 (gcd 40 (remainder 206 40))) => (gcd 40 (remainder 206 40)) => (if (= (remainder 206 40) 0) ;; +1 40 (gcd (remainder 206 40) (rem…

Seasar2で学ぶ DIとAOP アスペクト指向によるJava開発作者: arton出版社/メーカー: 技術評論社発売日: 2006/08/09メディア: 大型本購入: 3人 クリック: 99回この商品を含むブログ (52件) を見る以前読んでたんだけど、時間が出来たので再読。2年半位経ってる…

チキンライス レタスサラダ 牛ステーキ 青梗菜と豚肉炒め

今年初めてのツーリング。前日から泊まりの人達と箱根大観山PAで待ち合わせ。 着いた時間帯はガスりまくり。そういえばカーマガジンのイベントやってて、見たことのない車がたくさんいました。 なんとなく待ち合わせの人達と合流して沼津の丸天で昼飯。丸天…

今日の夕飯は山葵@中野。 お通し。 上刺身盛り合わせ。 さわらの木の芽焼き。 バッテラ。 焼酎も安いし、良いお店でした。

昨日と今日で気温が上がって一気に咲きましたね。 ということで夜桜と 昼の桜 です。こっちはオオシマザクラヤマザクラですね。 (2009/04/07修正。オオシマザクラは緑の葉が一緒に出てるヤツだ) 皆さんもお花見してますか?

豚ハツのコチュジャン焼き ブリの塩焼き 餡かけ焼きそば しかし、カマボコがすごい色だなぁ。

T^1 の時の a bq + aq + ap T^2 の時の a (bp + aq)q + (bq + aq + ap)q + (bq + aq + ap)p = bpq + a(q^2) + b(q^2) + a(q^2) + apq + bpq + apqq + a(p^2) = 2a(q^2) + 2apq + 2bpq + b(q^2) + a(p^2) = b((q^2) + 2pq)) + a((q^2) + 2pq) + a((p^2) + (q^…

(define (square n) (* n n)) (define (double n) (+ n n)) (define (halve n) (/ n 2)) (define (even? n) (= (remainder n 2) 0)) ; 1.16 のべき乗 (define (my-expt b n) (define (my-iter-expt b n a) (cond ((= n 0) a) ((even? n) (my-iter-expt (squa…

とりあえず必要そうな手続きを定義。 (define (square n) (* n n)) (define (double n) (+ n n)) (define (halve n) (/ n 2)) (define (even? n) (= (remainder n 2) 0)) 答え (define (my-* x y) (cond ((= y 0) 0) ((even? y) (double (my-* x (halve y)))…

(define (my-expt b n) (define (my-iter-expt b n a) (if (= n 0) a (if (even? n) (my-iter-expt (square b) (/ n 2) a) (my-iter-expt b (- n 1) (* b a)))) ) (cond ((= n 0) 1) ((= n 1) b) (else (my-iter-expt b n 1))) )