Practicar en Perl6 sin instalar nada
Publicado: 2010-09-29 14:42 @654
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)
http://try.rakudo.org
Como muestra, pueden partir con este código, que calcula el dígito verificador del RUT en Chile.
Using perl Syntax Highlighting
my $s_Rut = "30686957"; my @a_rut = split '', $s_Rut;
my $n_DV = (11 - [+](@a_rut.reverse <<*>> (2..7))) % 11;
$n_DV.say;
my $n_DV = (11 - [+](@a_rut.reverse <<*>> (2..7))) % 11;
$n_DV.say;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
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)