F# 失败并显示“错误 4 此表达式应具有 int 类型，但此处具有 int -> int 类型”

Question

这是我试图开始工作的代码，最后一行是它失败的地方：

let rec gcd a b =
    if b= 0 then
        a
    else
        gcd b (a % b);;

let n = 8051
let mutable d = 0
let mutable c = 1
let mutable xi = 2
let mutable yi = 2
let f x = (pown x 2) + (c % n);;
while c < 100 do
    while d = 1 do
        xi <- (f xi)
        yi <- (f(f(yi)))
        printfn "%d%d" xi yi        
        d <- gcd(abs (xi - yi) n)

---------------------以下代码有效； N---------上的整数溢出除外

module Factorization


let rec gcd a b =
    if b= 0 then
        a
    else
        gcd b (a % b);;

let n = 600851475143N
let mutable d, c, xi, yi = 1, 1, 2, 2
let f x = (pown x 2) + (c % n);;

let maxN m =int(ceil(sqrt(float m)))
//if (n > maxN(xi)) && (n >  maxN(yi)) then
while c < 100 do
    d <- 1
    while d = 1 do        
        if (maxN(n) > xi) && (maxN(n) >  yi) then
            xi <- f xi
            yi <- f(f(yi))           
            d <- gcd (abs (xi - yi)) n
            //fail
            if d = n then d<-1
            if d <> 1 then printfn "A prime factor of %d x = %d,  y = %d, d = %d" n xi yi d
        else
            xi <- 2
            yi <- 2
            c  <- c + 1;;

Answer 1

除了@Rangoric 指出的，外括号也必须去掉，否则柯里化将不起作用：

d <- gcd (abs(xi-yi)) n

Answer 2

哎呀，这里有一些不请自来的提示（@BrokenGlass 正确回答了这个问题）。

首先，您可以在一行中分配所有这些可变变量：

let mutable d, c, xi, yi = 0, 1, 2, 2

其次，在括号上放轻松：

xi <- f xi
yi <- f (f yi)

当然，还要尝试摆脱可变变量和 while 循环。但我将把它留给你，因为我确定你知道看到你使用递归实现了gcd。

Answer 3

试试：

d <- gcd (abs(xi-yi)) n

指出 abs 是一个 int->int 而不是一个 int 本身。将它括在括号中会导致在 gcd 查看它之前执行 abs。这会导致 gcd 看到 abs 而不是 abs 本身的结果。