a^2 + b^2 = c^2 かつ a + b + c = 1000 を満たす a, b, c の積 abc を求める問題。 (define (p9) (define square (lambda (x) (* x x))) (define (p9-iter a b) (let1 c (- 1000 a b) (if (= (+ (square a) (square b)) (square c)) (* a b c) (p9-iter (if…

1 から 100 までの数に対して和の平方と平方の和の差を求めるという問題。楽勝。 (use srfi-1) (define (p6) (let ((list100 (list-tabulate 100 (lambda (i) (+ i 1)))) (square (lambda (x) (* x x))) (sum (lambda (x) (fold + 0 x)))) (- (square (sum l…

1 から 999*999 までの整数のなかで 121 のように桁を反転させても同じ数になる数の最大のものを求める問題です。 (use srfi-13) (define (is-palindomic n) (let1 strn (number->string n) (string=? strn (string-reverse strn)))) (define (p4) (define (…