Greatest common divisor: Difference between revisions
Content added Content deleted
| Line 580: | Line 580: | ||
let rec gcd a b = |
let rec gcd a b = |
||
if b = 0 |
if b = 0 |
||
then a |
then abs a |
||
else gcd b (a % b) |
else gcd b (a % b) |
||