問題 1.16 (define (expr b n) (expr-iter 1 b n)) (define (expr-iter a b n) (cond ((= n 1) a) ((even? n) (expr-iter (* a (square b)) b (/ n 2))) (else (expr-iter (* a b) b (- n 1))))) (define (even? n) (= (remainder n 2) 0)) (define (square …
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。