1

第一次使用 F# 中的Euler #3,我想返回一个比这个可变值更优雅的布尔值。

// A number is prime if can only divide by itself and 1.  Can only be odd.
let isPrime x =
    if (x%2L = 0L) then
        false
    else
        let mutable result = true
        for i in 3L..x/2L do
            if (x%i = 0L) then
                result <- false
        result

let a = isPrime(17L)

// True
printfn "%b" a

L 是因为我正在强制函数返回 bigints(也必须有更好的方法,但一次只有一步)......

编辑 Gradbot 的解决方案

let isPrime x =
    // A prime number can't be even
    if (x%2L = 0L) then
        false
    else
        // Check for divisors (other than 1 and itself) up to half the value of the number eg for 15 will check up to 7
        let maxI = x / 2L

        let rec notDivisible i =
            // If we're reached more than the value to check then we are prime
            if i > maxI then
                true
            // Found a divisor so false
            elif x % i = 0L then
                false
            // Add 2 to the 'loop' and call again
            else
                notDivisible (i + 2L)

        // Start at 3
        notDivisible 3L
4

1 回答 1

3

您可以用 forall 替换 else 子句:

Seq.forall (fun i -> x % i <> 0L) { 3L .. x/2L }

然后进一步将其简化为单个表达式:

x % 2L <> 0L && Seq.forall (fun i -> x % i <> 0L) { 3L .. x/2L }

尽管我认为没有理由区别对待 2,但您可以简单地执行以下操作:

let isPrime x = 
    { 2L .. x/2L } |> Seq.forall (fun i -> x % i <> 0L) 
于 2013-08-08T16:43:22.307 回答