f# - 辅助GCD函数初学者

Question

所以我有这个

// Greatest common divisor

    let rec gcd x y =
      if y = 0 then x
       else gcd y (x%y)

//multiplying fraction using tuples. So , instead of /

    let (.*)(a,b)(c,d)=((a*c)/(gcd (a*c) (b*d)),((d*b)/(gcd(a*c)(d*b))));;

//adding fractions using tuples and simplifying

    let (.+)(a,b)(c,d)=((a*d+c*b)/(gcd(a*d+c*b)(d*b)),(d*b)/(gcd(a*d+c*b)(d*b)));;

它工作完美，但我希望能够使用辅助功能来完成此操作。

我有

让 rec gcd = 函数
| (a,0) -> 一个
| (a,b) -> gcd (b, a % b)

，但我不熟悉如何让它工作。每次我尝试实现它时，它都不会调用 gcd。我确定它是 f# syntac 的东西。即因为我是该语言的新手并且没有看到足够的示例。任何帮助将不胜感激。

Answer 1

let rec gcd a b = 
    match a, b with
    | (a,0) -> a
    | (a,b) -> gcd b (a % b)