inamori https://blog.hatena.ne.jp/inamori/ inamori’s diary https://inamori.hateblo.jp/ F# http://projecteuler.net/index.php?section=problems&id=4 全ての組合せに対し、回文数であるかどうか判定し、回文数の中で最大のものを求めます。 回文数の判定は、各桁の数字ごとのリストにし、それを逆にし、数に戻して元の数と同じか調べます。 まず、数字のリストにするのは再帰で簡単に書けます。 let rec digits n = if n = 0 then [] else (digits (n / 10)) @ [n % 10]@はリストの結合です。 逆順にする関数はList.revです。 再び数に戻すのは素直にfoldで書きます。 let to… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Finamori.hateblo.jp%2Fentry%2F20100414%2Fp1" title="Project Euler 4 - inamori’s diary" 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 2010-04-14 00:00:00 rich https://inamori.hateblo.jp/entry/20100414/p1 1.0 100%