http://projecteuler.net/index.php?section=problems&id=24 この問題は手計算レベルの計算量で済みます。 let rec factorial n = if n = 0 then 1 else n * (factorial (n - 1)) let to_number a = List.fold (fun x y -> x * 10L + int64 y) 0L a let rec …