5 lines
167 B
Common Lisp
5 lines
167 B
Common Lisp
gcd[x;y] = [x>y -> gcd[y;x];
|
|
rem[y;x] = 0 -> x;
|
|
T -> gcd[rem[y;x];x]]
|
|
|
|
;; gcd[x;y] = [x>y -> gcd[y;x]; rem[y;x] = 0 -> x; T -> gcd[rem[y;x];x]] |