http://projecteuler.net/index.php?section=problems&id=23 まず28123以下の自然数の配列を作り、過剰数を求めて、それらの和に対し配列の値を0にして、最後に配列の和を取る。 iterableに対してproductがうまく動かなかったので、iterableを修正した。

http://projecteuler.net/index.php?section=problems&id=7 素数判定は2から順に割っていきます。 let count start = Seq.initInfinite (fun n -> n + start) let is_prime n = Seq.forall (fun p -> n % p <> 0) (Seq.takeWhile (fun p -> p * p <= n) (cou…