Problem 4 「最大の回文積」

左右どちらから読んでも同じ値になる数を回文数という. 2桁の数の積で表される回文数のうち, 最大のものは 9009 = 91 × 99 である.

では, 3桁の数の積で表される回文数の最大値を求めよ

今回のポイントは、

• 回文数を判断するために、数値から文字に変換する
• 二重ループなので、回文数だとしても、前の結果よりも小さくなることがある
• 結果が重複しないように、y > x の場合はスキップ

でしょうか。ただ、３つ目の条件で少し短縮していますが、今回のコードは今まで一番実行時間が遅く、sbclでコンパイルしても0.85秒でした。もう少し最適化できるかもしれないですね。

(defun prob4 ()
    (let ((result 0))
        (dotimes (x 1000)
            (dotimes (y 1000)
                (if (> y x) (return))
                (let ((s (write-to-string (* x y))))
                    (if (string= s (reverse s)) (setq result (max result (* x y)))))))
        result))

(print (prob4))

数学ガール (数学ガールシリーズ 1)

posted with amazlet at 14.01.17

結城 浩
ソフトバンククリエイティブ
売り上げランキング: 8,733

Amazon.co.jpで詳細を見る

RECENT POSTS

	Logicool M705mを100均グッズで軽量化する
	どうして自分の欠点ばかりが気になるのか ― 劣等感と所有欲の関係
	日記をつけることの楽しさ ― 記録の効能と醍醐味
	『アイデアの作り方』･･･発想法を定式化した、最もシンプルな本
	『最高の休息法』…「いまここ」の認識と脳疲労
	OmmWriterを使い始めたので、使用感などまとめ。