(define (A x y) (cond ((= y 0) 0) ((= x 0) (* 2 y)) ((= y 1) 2) (else (A (- x 1) (A x (- y 1)))))) (A 1 10);1024 (A 2 4);65536 (A 3 3);65536 (define (f n) (A 0 n)) ;nを2倍する (define (g n) (A 1 n)) ; 2 の乗数を求める ;ex (g 2) ;(A (- 1 1)…

(define (inc x) (+ x 1)) (define (dec x) (- x 1)) ;----- ;再帰的プロセス (define (plus-1-9a a b) (if (= a 0) b (inc (plus-1-9a (dec a) b)))) ;----- (plus-1-9 4 5) (inc (plus-1-9a (dec 4) 5)) (inc (plus-1-9a (- 4 1) 5)) (inc (plus-1-9a 3 5)…