Problem 20 module Problem_0020 (* 【問題】 n × (n - 1) × ... × 3 × 2 × 1 を n! と表す。 100! の各桁の数字の合計を求めよ。 *) // 通常パターン // 648 // 59 ms let calc = let fac n = seq { 2I..n } |> Seq.reduce (*) fac 100I |> (string) |> (fu…

Problem 19■.NETライブラリを使ったパターン module Problem_0019 (* 【問題】 次の情報が与えられている。 1900年1月1日は月曜日である。 9月、4月、6月、11月は30日まであり、2月を除く他の月は31日まである。 2月は28日まであるが、うるう年のときは29日…

Problem 21 module Problem_0021 (* 【問題】 d(n)をnの真の約数の和と定義する。 （真の約数とはn以外の約数のことである。） もし、d(a) = b かつ d(b) = a（a ≠ b）を満たすとき、 aとbは友愛数（親和数）であるという。 例えば、220の約数は1,2,4,5,10,1…