• Publicidad

[RETO] Palíndromo

Aprende Perl

[RETO] Palíndromo

Notapor Aceitunas » 2014-02-07 07:17 @345

Teniendo en una variable una palabra indicar si es palíndroma o no.

http://es.wikipedia.org/wiki/Pal%C3%ADndromo

Cuantas menos líneas tenga el código mejor.

¡¡Animaros!!
Voy a llegar hasta el final, voy a subir la velocidad - Migue Benítez.
Aceitunas
Perlero nuevo
Perlero nuevo
 
Mensajes: 117
Registrado: 2013-11-07 15:25 @684
Ubicación: Ciudad Real, España.

Publicidad

Re: [RETO] Palíndromo

Notapor explorer » 2014-02-08 05:20 @264

No se anima nadie... es muy complicado :)
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14475
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: [RETO] Palíndromo

Notapor BigBear » 2014-02-08 13:20 @597

todo un reto.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. $texto = "arenera";
  2. if($texto eq reverse($texto)){print "creo que es";}else{print "creo que no";}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Re: [RETO] Palíndromo

Notapor Aceitunas » 2014-02-08 13:43 @613

Bueno Doddy, creo que ha hecho la más corta, por lógica :D

La mía es esta, trabajando con arrays:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. $_ = "arenera";
  2. @c = split (//);
  3. for ($f = $#c,$i = 0 ; $c[$i] eq $c[$f] && $f >= 0; $i++,$f--){}
  4. ($#c + 1) == $i ? print "Palindroma" : print "NO palindroma";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


¡¡Lo bueno de estos retos es que siempre aprendes algo nuevo!!

P.D.: Lo suyo sería que el que hiciera la forma más óptima propusiera un nuevo reto/ejercicio :twisted:
Voy a llegar hasta el final, voy a subir la velocidad - Migue Benítez.
Aceitunas
Perlero nuevo
Perlero nuevo
 
Mensajes: 117
Registrado: 2013-11-07 15:25 @684
Ubicación: Ciudad Real, España.

Re: [RETO] Palíndromo

Notapor BigBear » 2014-02-08 14:01 @626

¡ja!, no te preocupes, que en cualquier momento aparece explorer y me gana xD
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Re: [RETO] Palíndromo

Notapor Aceitunas » 2014-02-08 16:39 @735

Modificando un poco tu código...

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. $_ = "arenera";$_ eq reverse() ? print "creo que es" : print "creo que no";
  2.  
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


¿Creo que eso sería lo más resumido?
Voy a llegar hasta el final, voy a subir la velocidad - Migue Benítez.
Aceitunas
Perlero nuevo
Perlero nuevo
 
Mensajes: 117
Registrado: 2013-11-07 15:25 @684
Ubicación: Ciudad Real, España.

Re: [RETO] Palíndromo

Notapor explorer » 2014-02-08 20:48 @908

No se puede hacer más corto, con la ayuda de reverse(), así que, le toca a Doddy poner un nuevo reto :)
Sintáxis: [ Descargar ] [ Ocultar ]
Using bash Syntax Highlighting
  1. $ perl -E 'say "$_ ", ($_ eq reverse() ? "" : "no "), "es palíndromo" for @ARGV' arenera ana anterera
  2. arenera es palíndromo
  3. ana es palíndromo
  4. anterera no es palíndromo
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14475
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: [RETO] Palíndromo

Notapor BigBear » 2014-02-08 22:42 @988

No sé si ganar fue bueno o malo :D , pero bueno , hagamos como reto el cifrado y descifrado Cesar que vi que hicieron en otro foro en Python.
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818


Volver a Formación

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados

cron