Anonymous user
Greatest common divisor: Difference between revisions
→{{header|OCaml}}: idiomatic version
(→{{header|OCaml}}: idiomatic version) |
|||
Line 2,064:
else if a > b then gcd b (a mod b)
else gcd a (b mod a)</lang>
A little more idiomatic version:
<lang ocaml>let rec gcd1 a b =
match (a mod b) with
0 -> b
| r -> gcd1 b r</lang>
=== Built-in ===
|