Question

我试图从0到2 000 000之间得到所有质数的总和

这是我的代码:

let getPrimesUpTo (x : System.Int32) =
    let upperBound = Convert.ToInt32(Math.Sqrt(Convert.ToDouble(x)))

    let allNumbers = ref [1..x] in    
    for div = 2 to upperBound do allNumbers := List.filter (fun num -> (num % div <> 0 || div >= num)) !allNumbers    
    allNumbers

let sop = 
    let nums = !(getPrimesUpTo 2000000)
    List.sum nums

当我运行它时,我得到: "亚特穆罕默德行动导致溢出"

如果我不做清单。和我会得到质数列表

Answer 1

List. sum 使用被检查的溢出运算符。您可以通过源跟踪此操作符

List.sum calls Seq.sum
Seq.sum calls Checked.(+)

checked. (+) 在溢出时丢出一个错误。侧边注意 : 这就是为什么 List. Fold (+) 比 List. sum 更快的原因。



要解决这个问题, 您需要修改您的代码, 以使用 64 位元( 它应该足够大), 我还整理了双与 int 之间的转换

let getPrimesUpTo (x : int64) =
    let upperBound = x |> float |>sqrt |> int64

    let allNumbers = ref [1L..x]    
    for div in 2L..upperBound do allNumbers := List.filter (fun num -> (num % div <> 0L || div >= num)) !allNumbers    
    allNumbers

let sop = 
    let nums = !(getPrimesUpTo 2000000L)
    List.sum nums


计算质数的方法非常低效。 我写了一些相当好的代码来计算F#中的大量质数 - 这里请看https://stackoverflow.com/a/8371684/124259>>https://stackoverflow.com/a/8371684/124259

Answer 2

估计 List.sum 将尝试将数值与 Int32 值相提并论..., 估计最高为2,000,000的质数总和大于 Int32.maxValue 。我怀疑 Int64 是可以接受的 - 所以尝试将 Convert. toInt32 改为 Code>Convert.Toint64 。

友情链接