4 lines
117 B
Prolog
4 lines
117 B
Prolog
gcd(X, 0, X):- !.
|
|
gcd(0, X, X):- !.
|
|
gcd(X, Y, D):- X =< Y, !, Z is Y - X, gcd(X, Z, D).
|
|
gcd(X, Y, D):- gcd(Y, X, D).
|