求めてみたけど、まだ不明な点がある。Problem 30 - PukiWiki 驚くべきことに, 各桁を4乗した和が元の数と一致する数は3つしかない. * 1634 = 1^4 + 6^4 + 3^4 + 4^4 * 8208 = 8^4 + 2^4 + 0^4 + 8^4 * 9474 = 9^4 + 4^4 + 7^4 + 4^4ただし, 1=1^4は含まない…

オイラーは60余りの友愛数を求めたらしい。僕も挑戦するぞ（嘘 d(n)をnの真の約数の和と定義する。（真の約数とはn以外の約数のことである。） もし、d(a) = b かつ d(b) = a を満たすとき、aとbは友愛数（親和数）であるという。例えば、220の約数は1, 2, 4…

ちょっとおサボリしちゃった。Problem 22 - PukiWiki 5000個以上の名前が書かれている46Kのテキストファイル names.txt を用いる. まずアルファベット順にソートせよ.のち, 各名前についてアルファベットに値を割り振り, リスト中の出現順の数と掛け合わせる…

この問題は面白かった。Problem 28 - PukiWiki 1から初めて右方向に進み時計回りに数字を増やしていき, 5×5の螺旋が以下のように生成される: 21 22 23 24 25 20 07 08 09 10 19 06 01 02 11 18 05 04 03 12 17 16 15 14 13対角線上の数字の合計はどちらも101…

だんだん難しくなってきた。Problem 19 - PukiWiki 次の情報が与えられている。 * 1900年1月1日は月曜日である。 * 9月、4月、6月、11月は30日まであり、2月を除く他の月は31日まである。 * 2月は28日まであるが、うるう年のときは29日である。 * うるう年は…

100の階乗Problem 20 - PukiWiki n × (n - 1) × ... × 3 × 2 × 1 を n! と表す。100! の各桁の数字の合計を求めよ。 簡単。 前に作ったユーティリティを利用して、 (define (number->list n) (define (iter acc n) (let ((q (quotient n 10)) (m (cons (modu…

みんな大好きフィボナッチ。Problem 25 - PukiWiki フィボナッチ数列は以下の漸化式で定義される: Fn = Fn-1 + Fn-2, ただし F1 = 1, F2 = 1.最初の12項は以下である. * F1 = 1 * F2 = 1 * F3 = 2 * F4 = 3 * F5 = 5 * F6 = 8 * F7 = 13 * F8 = 21 * F9 = 34…

順路問題。Problem 18 - PukiWiki 以下の三角形の頂点から下まで移動するとき、その数値の合計の最大値は23になる。 3 7 5 2 4 6 8 5 9 3この例では 3 + 7 + 4 + 9 = 23以下の三角形を頂点から下まで移動するとき、その最大の合計値を求めよ。 75 95 64 17 4…