Greatest common divisor: Difference between revisions
Content deleted Content added
No edit summary |
|||
| Line 438: | Line 438: | ||
gcd(A,B) when A > B -> gcd(B, A rem B); |
gcd(A,B) when A > B -> gcd(B, A rem B); |
||
gcd(A,B) -> gcd(A, B rem A).</lang> |
gcd(A,B) -> gcd(A, B rem A).</lang> |
||
=={{header|F_Sharp|F#}}== |
|||
<lang fsharp>Open System |
|||
let rec GCD (a:int) (b:int) = |
|||
match b with |
|||
| 0 -> Math.Abs(a) |
|||
| _ -> GCD b (a % b)</lang> |
|||
=={{header|Factor}}== |
=={{header|Factor}}== |
||