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

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))) )