Két pozitív szám legnagyobb közös osztójának meghatározása.
[while] (CLU
forrás)
gcd = proc(n,d:int) returns (int)
% a legnagyobb k”z”s oszt˘ meghat roz sa ism‚telt kivon
sokkal
while n~=d do
if n>d then n:=n-d else d:=d-n end
end
return (n)
end gcd