Calcular un m.c.d. en LOGO

Un pequeño algoritmo recursivo permite calcular el m.c.d. de dos números, :a y :b.

   para mcd :a :b
      si (resto :a :b) = 0
         [devuelve :b]
         [devuelve mcd :b resto :a :b]
   fin

   escribe mcd 2160 888

proporciona como resultado 24

Nota: Nos vemos obligados a poner paréntesis en resto :a :b, si no el intérprete intentará evaluar b=0. Para evitar este problema de paréntesis, podemos escribir: si 0 = resto :a :b