Perl en Español

  1. Home
  2. Tutoriales
  3. Foro
  4. Artículos
  5. Donativos
  6. Publicidad
 
Índice general » Novedades » Noticias de Perl » Practicar en Perl6 sin instalar nada Responder al tema
Nuevo tema


Página 1 de 1  [ 4 mensajes ] 
 
Nota 2010-09-29 14:42 @654

Perlero Nuevo
Registrado: 2009-07-22 12:05 @545
Mensajes: 5
Practicar en Perl6 sin instalar nada
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.

Syntax: [ Download ] [ Hide ]
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;
 


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)


Nota 2010-09-29 15:58 @707
Avatar de Usuario
Administrador
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Mensajes: 10270
Re: Practicar en Perl6 sin instalar nada
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:
Syntax: [ Download ] [ Hide ]
Using text Syntax Highlighting
> say 23 % 11
1
> say -23 % 11
10


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).

_________________
JF^D Perl programming


Nota 2010-09-30 10:22 @473

Perlero Nuevo
Registrado: 2009-07-22 12:05 @545
Mensajes: 5
Re: Practicar en Perl6 sin instalar nada
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!


Nota 2010-09-30 15:39 @694
Avatar de Usuario
Administrador
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España
Mensajes: 10270
Re: Practicar en Perl6 sin instalar nada
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 :)

_________________
JF^D Perl programming


Responder al tema  [ 4 mensajes ] 

Reglas del Foro
No puedes abrir nuevos temas en este Foro
No puedes responder a temas en este Foro
No puedes editar tus mensajes en este Foro
No puedes borrar tus mensajes en este Foro
No puedes enviar adjuntos en este Foro

Publicidad

Socializa

Síguenos por Twitter

Suscríbete GRATUITAMENTE al Boletín de Perl en Español

Saltar a:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traducción al español por Huan Manwë para phpbb-es.com
phpBB SEO