Problem 2 module Problem_0002 (* 【問題】 フィボナッチ数列の項は前の2つの項の和である。 最初の2項を 1, 2 とすれば、最初の10項は以下の通りである。 「1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ...」 数列の項の値が400万を超えない範囲で、偶数値の項の…

Problem 1 module Problem_0001 (* 1,000 未満の 3 or 5 の倍数になっている数字の合計を求めよ。 *) let exp x y = (y % x = 0) let exp2 a = (exp 3 a) || (exp 5 a) let run ()= // 数学的な解（ぱくりコード） let n = 1000 - 1 let a = 3 * (n/3) * (n/…

非同期処理＋ポーリングによる６０秒制限を盛り込みました。 ポーリングは苦肉の策です。 これ以外に書き方が分からない・・・・ 後エラー処理も取ってしまう羽目に、どうしたものか open System open System.Diagnostics open Common // モジュール名を変え…