Foro - Perl en Español

explorer escribiste:Naturalmente, tu misma puedes hacer la prueba.

Pero... ¿qué ocurrirá si alguno de los números es 0?

Si alguno de los dos es 0, no funciona pero ¡ya encontré la solución!

Si ese teorema no está en Wikipedia, es que no existe. Por favor, comprueba que estás usando el nombre correcto.

¿No será el Algoritmo de Euclides enlazado antes?

Fíjate que el hacer una división ya es hacer restas...

No, no, lo presenta como una segunda solución del organigrama de Euclides: manda introducir los números y la condición A >= B. Si se cumple, se resta A-B y se retorna al bucle, si no se cumple usa variables temporales para cambiar números y pone una siguiente condición, que es que B==0 y si no se cumple hay que restar A-B y sí se cumple finaliza el programa diciendo el mcd es A.

Pues eso... es lo que he dicho: las divisiones y el cálculo del resto que hemos hecho antes es lo mismo que el bucle de restas de A-B mientras se cumpla la condición A>=B, ¿te das cuenta? Pero el algoritmo es exactamente el mismo. Y está descrito en la misma página, cuando habla de restar longitudes de segmentos.

Entonces, la solución es sencilla: coges la solución en Perl anterior y traduces la operación de división/resto en un bucle que hace restas según acabas de contar. Y listo, porque las líneas de intercambio de números y comprobación de fin de bucle, son las mismas.

¡Adelante!