豚肉と青梗菜炒め ハッシュドビーフ(もらいもの) 豚肉と大根の煮物 キュウリ

集合の部分集合を作り出す手続きの次の定義 (define (subsets s) (if (null? s) (list ()) (let ((rest (subsets (cdr s)))) (append rest (map (lambda (x) (cons (car s) x)) rest))))) 実験 (subsets (list 1 2 3)) ; (() #0=(3) #1=(2) #2=(2 . #0#) (1)…

ダシ(昨日の残り) 海鮮巻き(マルマンのお惣菜) キュウリ 豚肉と大根の炒め煮 鶏胸肉のヨーグルト焼き 鶏胸肉のヨーグルト焼きのレシピはこんな感じ。 フライパンにオリーブオイルを入れ、クミン, コリアンダー, ベイリーフ, ガラムマサラを炒めて香りを出す …

直接バージョン (define (tree-map proc items) (cond ((null? items) (list)) ((not (pair? items)) (proc items)) (else (cons (tree-map proc (car items)) (tree-map proc (cdr items)))))) map と再帰バージョン (define (tree-map proc tree) (map (la…

直接バージョン (define (square-tree items) (cond ((null? items) (list)) ((not (pair? items)) (square items)) (else (cons (square-tree (car items)) (square-tree (cdr items)))))) map と再帰バージョン (define (square-tree tree) (map (lambda (…

ブリの塩焼きと大根おろし ダシ(キュウリ,ナス,ミョウガ,大葉を出汁に漬けたもの) ナスとパプリカのオリーブオイル炒め ステーキ

二進モービル ここまで出てる定義 (define (make-mobile left right) (list left right)) (define (make-branch length structure) (list length structure)) a.(モービルの枝を返す) left-branch と right-branch, (枝の部品を返す) branch-length と branc…

fringeの定義 (define (fringe x) (define (iter rest result) (cond ((null? rest) result) ((pair? (car rest)) (iter (cdr rest) (append result (iter (car rest) (list))))) (else (iter (cdr rest) (append result (list (car rest))))))) (iter x (li…

久々にスルメじゃなくて甲イカ売ってので買ってみた。 ということで今日の夕飯。 モツ煮(昨日の残り) キュウリとトマトサラダ 豚肉とネギ炒め サーモンの刺身 甲イカの刺身 イカの肝炒め

先週の日曜日。購入から丁度一ヶ月の自転車のクランクにガタが出てイヤな感じに。まだ一ヶ月しか経ってないのに…。 グーグル先生に聞いてみるとBB(ボトムブラケット Bottom bracket)を整備しないとダメな感じです。まあ、まだ買って一ヶ月だし100kmも走って…

ジャガイモとトマトのオーブン焼き 豚モツ煮 豚肉とクレソン炒め

庭仕事という程ではないのですが。バジルもローズマリーもベニノフキメイガにさえやられなければ、ちゃんと大きくなることがわかったので、防虫ネットを縦置きから横置きに変更しました。 んで、これも虫さえつかなければ増えるのが分かってるクレソン, フェ…

鶏モモ肉,玉葱,エリンギ,ニンジンの卵とじ ブリ刺身 カニカマ,キュウリ,新玉葱のサラダ 辣腸(蒸して削ぎ切りにしたもの) ホウレンソウと豚肉炒め

そろそろ一週間たった状態。 これを10分位蒸して夕飯予定。

reverse の定義修正版 (define (reverse x) (define (iter rest result) (if (null? rest) result (iter (cdr rest) (cons (car rest) result)))) (iter x (list))) deep-reverseの定義 (define (deep-reverse x) (define (iter rest result) (cond ((null? …

(define x (list 1 2 3)) (define y (list 4 5 6)) について、それぞれの評価に応じて解釈系が印字する結果 (append x y) ; => (1 2 3 4 5 6) (cons x y) ; => (1 2 3 (4 5 6)) × こうはならない!! ; => ((1 2 3) 4 5 6) ○ こっちが正解 (list x y) ; => ((1…

(1 3 (5 7) 9)から7を取り出すcarとcdrの組み合わせ (list 1 3 (list 5 7) 9) (car (cdr (car (cdr (cdr (list 1 3 (list 5 7) 9)))))) ; 7 ((7))から7を取り出すcarとcdrの組み合わせ (list (list 7)) (car (car (list (list 7)))) ; 7 (1 (2 (3 (4 (5 (6 7…

Buell X1に乗り始めて今年で10年。1回も換えたことなかったのでBMJでお勧めMAGNECORのプラグコードをこちらから購入。 カタログで型番調べて、Eメールで注文しました。Buell X1だと2548です。お値段は送料,代引き込みで8000円強でした。 ということで、即交…

枝豆 豚焼肉(弁当の残り) 地蛸の刺身 糠漬け 鶏モモ肉のケチャップ炒めチーズのせ焼き キュウリ 鯵の干物

(list 1 (list 2 (list 3 4))) を評価した場合、解釈系の印字する結果 (list 1 (list 2 (list 3 4))) ; (1 (2 (3 4))) 対応する箱とポインタ構造 □□→□□ ↓ ↓ １ □□→□□ ↓ ↓ ２ □□→□□ ↓ ↓ ３ ４木としての構造 (1 (2 (3 4))) ・ ／＼ 1 ・(2 (3 4)) ／＼ 2 ・(3…

(define (for-each proc items) (proc (car items)) (if (null? (cdr items)) #t (for-each proc (cdr items)))) 実験 (for-each (lambda (x) (newline) (display x)) (list 57 321 88)) ; ; 57 ; 321 ; 88#t 普通のリストはOK。でもitemsが空リストの場合、…

鶏の竜田揚げ(いなげやのお惣菜) 青椒肉絲 木須肉

square-listが逆の順に答えを作った理由は、cons する際に answer の前(左)に square した結果を追加しているためで、itemsの頭にあったものが右に、次のものがリストの左に入っていくため、並び順が逆になってしまう。まずは修正後のsquare-listが動作を確…

square-listその1 (define (square-list items) (if (null? items) () (cons (square (car items)) (square-list (cdr items))))) square-listその2 (define (square-list items) (map square items))

一つかそれを越える個数の整数をとり、先頭と同じ偶奇数性を持つ引数のリストを返す手続き same-parity (define (same-parity x . y) (define (iter-same-parity same-list rest) (if (null? rest) same-list (if (or (and (even? x) (even? (car rest))) (a…

山東采と豚バラ炒め 麻婆春雨 ジャガイモ,ニンジン,玉葱の油味噌炒め

first-denomination, except-first-denomination, no-more?の定義 (define (first-denomination coin-values) (car coin-values)) (define (except-first-denomination coin-values) (cdr coin-values)) (define (no-more? coin-values) (null? coin-values)…

引数としてリストをとり、同じ要素の逆順のリストを返す手続きreverse (define (reverse items) (define (reverse-iter r-items count) (if (> 0 count) r-items (reverse-iter (append r-items (list (list-ref items count))) (- count 1)))) (reverse-ite…

与えられた(空でない)リストの最後の要素だけからなるリストを返す手続きlast-pair 再帰版 (define (last-pair items) (if (null? (cdr items)) (list (car items)) (last-pair (cdr items)))) 反復版 (define (last-pair items) (define (iter last-item la…

チキン南蛮 豚タンの塩焼き マアジの干物 チキン南蛮はネットでレシピ見て美味しそうだったので、適当にアレンジ。 鶏胸肉に片栗粉をはたいて、卵液に漬けて低温で揚げる(卵がこげるため) 南蛮酢は砂糖大匙3, 赤ワインビネガー大匙2, 黒酢大匙1, 醤油大匙3, …