鶏手羽元のカレー煮(昨日の残り) ボイルイカ アスパラ,椎茸,卵炒め ワタリガニの味噌汁 スペアリブのケチャップ煮

全てが同数の要素からなる並びの並びをとる手続き accumulate-n の定義 (define (first-item seqs) (if (pair? seqs) (cons (car (car seqs)) (first-item (cdr seqs))) seqs)) (define (next-item seqs) (if (pair? seqs) (cons (cdr (car seqs)) (next-ite…

2.2.2節の count-leaves (define (count-leaves x) (cond ((null? x) 0) ((not (pair? x)) 1) (else (+ (count-leaves (car x)) (count-leaves (cdr x)))))) を accumulation として再定義せよ。 こんなので良いか (define (count-leaves t) (accumulate (la…