Beschrijving

Implementeer de grootste gemene deler met het algoritme van Euclides. De beschrijving van dit algoritme vind je op wikipedia:

bepaal ggd(A, B):
  als B = 0
    antwoord = A
  anders
    antwoord = ggd(B, (A mod B))

Hierbij noteren we \(A \mod B\) voor de operatie “rest bij deling van \(A\) door \(B\).” In Haskell is deze functie beschikbaar in de prelude mod :: Integral a => a -> a -> a (mod neemt twee gehele getallen als argument, en geeft een geheel getal terug als resultaat).

Voorbeeld

ggd 12 18     == 6
ggd 1071 462  == 21
ggd 17 5      == 1
ggd 7 0       == 7