Malgranda rekursiva algortimo ebligas kalkuli la pgkd de du nombroj :a kaj :b:
por pgkd :a :b se (rest :a :b) = 0 [sendu :b] [sendu pgcd :b rest :a :b] fino skribu pgkd 2160 888 24 |
Rimarku: Oni nepre metu parentezojn ĉirkaŭ rest :a :b; se ne, l’ interpretilo provos evalui :b = 0. Por ŝpari la parentezojn, skribu: se 0 = rest :a :b