RosettaCodeData/Task/Greatest-common-divisor/SequenceL/greatest-common-divisor.sequencel
2016-12-05 23:44:36 +01:00

4 lines
53 B
Text

gcd(a, b) :=
a when b = 0
else
gcd(b, a mod b);