久々に問題を解こう。 数日空けると頭が再帰的じゃなくなって問題が意味不明に。。 (define (* a b) (define (*-iter x a b) (cond ((= b 0) x) ((even? b) (*-iter (if (= x 0) (double a) (double x)) a (halve b))) (else (*-iter (+ x a) a (- b 1))))) …
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。