Foro - Perl en Español

En este enlace, pueden probar programas pequeños directamente en su navegador.

http://try.rakudo.org

Como muestra, pueden partir con este código, que calcula el dígito verificador del RUT en Chile.



Este ejemplo debería dar 4.

El algoritmo lo pueden ver en el siguiente enlace http://tinyurl.com/2973yfs (busquen Cálculo del dígito verificador, Módulo 11)

Gracias por el aporte, al que solo tengo que decir dos salvedades: aunque, aparentemente y matemáticamente, son iguales, el algoritmo habla primero del cálculo del módulo, y luego del cálculo de la diferencia entre 11 y el resultado del módulo, no al revés. En Perl, el comportamiento del operador módulo es "diferente" según sea los números sean positivos o negativos:


Y segundo, no están contemplados los casos de cuando el resultado de la diferencia es 10 u 11. Según el algoritmo, el resultado debería ser 'K' y '0', respectivamente (según se indica en Rol Único Tributario).

Bueno, veo que subiste el algoritmo correcto en Wikipedia. Para temas del ejemplo, lo simplifiqué mucho, solo que me faltó agregar ese "detallito" a mi post

De todos modos, queda genial para comparar el algoritmo en 4 líneas en Perl6 contra el de 21 líneas en Visual Basic, ¡ja,ja,ja!

Es obvio que no se pretende escribirlo de forma corta, porque entonces entramos en el área del Perl ofuscado, y eso siempre va en contra de la "fama" de Perl, si no está colocado en el sitio adecuado.

Más bien, intentar que los pasos sean sencillos y claros que anime a los lectores a aprender Perl.

Lo he modificado para dejarlo en poco más de diez líneas, pero aún así queda más bonito que la de Visual Basic