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!!
-
- Publicidad
[RETO] Palíndromo
8 mensajes
• Página 1 de 1
[RETO] Palíndromo
por Aceitunas » 2014-02-07 07:17 @345
Voy a llegar hasta el final, voy a subir la velocidad - Migue Benítez.
- Aceitunas
- Perlero nuevo
- Mensajes: 117
- Registrado: 2013-11-07 15:25 @684
- Ubicación: Ciudad Real, España.
Publicidad
Re: [RETO] Palíndromo
por 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
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: [RETO] Palíndromo
por BigBear » 2014-02-08 13:20 @597
- BigBear
- Perlero frecuente
- Mensajes: 981
- Registrado: 2009-03-01 18:39 @818
Re: [RETO] Palíndromo
por Aceitunas » 2014-02-08 13:43 @613
Bueno Doddy, creo que ha hecho la más corta, por lógica 
La mía es esta, trabajando con arrays:
¡¡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
La mía es esta, trabajando con arrays:
Using perl Syntax Highlighting
- $_ = "arenera";
- @c = split (//);
- for ($f = $#c,$i = 0 ; $c[$i] eq $c[$f] && $f >= 0; $i++,$f--){}
- ($#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
Voy a llegar hasta el final, voy a subir la velocidad - Migue Benítez.
- Aceitunas
- Perlero nuevo
- Mensajes: 117
- Registrado: 2013-11-07 15:25 @684
- Ubicación: Ciudad Real, España.
Re: [RETO] Palíndromo
por BigBear » 2014-02-08 14:01 @626
¡ja!, no te preocupes, que en cualquier momento aparece explorer y me gana xD
- BigBear
- Perlero frecuente
- Mensajes: 981
- Registrado: 2009-03-01 18:39 @818
Re: [RETO] Palíndromo
por Aceitunas » 2014-02-08 16:39 @735
Modificando un poco tu código...
¿Creo que eso sería lo más resumido?
Using perl Syntax Highlighting
- $_ = "arenera";$_ eq reverse() ? print "creo que es" : print "creo que no";
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
- Mensajes: 117
- Registrado: 2013-11-07 15:25 @684
- Ubicación: Ciudad Real, España.
Re: [RETO] Palíndromo
por 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
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: [RETO] Palíndromo
por BigBear » 2014-02-08 22:42 @988
No sé si ganar fue bueno o malo , pero bueno , hagamos como reto el cifrado y descifrado Cesar que vi que hicieron en otro foro en Python.
, pero bueno , hagamos como reto el cifrado y descifrado Cesar que vi que hicieron en otro foro en Python.- BigBear
- Perlero frecuente
- Mensajes: 981
- Registrado: 2009-03-01 18:39 @818
8 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados