tanakaBox https://blog.hatena.ne.jp/tanakaBox/ ボクノス https://boxnos.hatenablog.com/ Scheme 三平方の定理。懐かしいな。 ピタゴラスの三つ組(ピタゴラスの定理を満たす整数)とはa うぅん。 考えてみたけど、力ずくで解く方法しか思いつかず。 (define (problem9 n) (define (square x) (* x x)) (define (iter a b c) (cond ((= (square c) (+ (square a) (square b))) (list a b c)) ((>= a (+ b c)) (error "not found.")) ((>= b c) (iter (+ a 1) (+ a 2) (- (- n (+ a 1)) (+ a 2))… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20080402%2F1207143439" title=" Problem 9 - ボクノス" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2008-04-02 22:37:19 rich https://boxnos.hatenablog.com/entry/20080402/1207143439 1.0 100%