Foro - Perl en Español

La comunidad de programadores en Perl de habla hispana.
http://perlenespanol.com/foro/

[RETO] Palíndromo

http://perlenespanol.com/foro/palindromo-t8521.html

Página 1 de 1

[RETO] Palíndromo

NotaPublicado: 2014-02-07 07:17 @345
por Aceitunas
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!!

Re: [RETO] Palíndromo

NotaPublicado: 2014-02-08 05:20 @264
por explorer
No se anima nadie... es muy complicado :)

Re: [RETO] Palíndromo

NotaPublicado: 2014-02-08 13:20 @597
por BigBear
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.003 segundos, usando GeSHi 1.0.8.4

Re: [RETO] Palíndromo

NotaPublicado: 2014-02-08 13:43 @613
por Aceitunas
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:

Re: [RETO] Palíndromo

NotaPublicado: 2014-02-08 14:01 @626
por BigBear
¡ja!, no te preocupes, que en cualquier momento aparece explorer y me gana xD

Re: [RETO] Palíndromo

NotaPublicado: 2014-02-08 16:39 @735
por Aceitunas
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?

Re: [RETO] Palíndromo

NotaPublicado: 2014-02-08 20:48 @908
por explorer
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

Re: [RETO] Palíndromo

NotaPublicado: 2014-02-08 22:42 @988
por BigBear
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.
Todos los horarios son UTC - 6 horas [ DST ]
Página 1 de 1
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/