Foro - Perl en Español

por **L0rd5had0w** » 2008-09-07 15:38 @693

Bueno como perlero nuevo en este extraordinario lenguaje he realizado distintos ejercicios propuestos en diversos post del foro y ejercicios de libros de otros lenguajes, por ejemplo uno de C/C++ donde proponían realizar un dibujo sencillo con "*". Bueno, el resultado de mi código lo coloco abajo; lo único que quería saber es una forma más sencilla de hacerlo mśs legible y qué métodos utilizarían. Salu2...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
my$num=0;
my$i=11;
sub Cubo_Up 
{
while($num<=10)
{
print" " x ($i),"*" x ($num),"*" x($num-1),"\n";
$num++;
$i--;
}
}
sub Cubo_Down
{
$num=10;
$i=0;
while($num>= 0)
{
print" " x ($i),"*" x ($num),"*" x($num+1),"\n";
$num--;
$i++;
}
}
&Cubo_Up;
&Cubo_Down;Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

y el resultado debe ser similar al siguiente...

Código: Seleccionar todo: * *** ***** ******* ********* *********** ************* *************** ***************** ******************* ********************* ******************* ***************** *************** ************* *********** ********* ******* ***** *** *

Qué interesante. Qué sencillo lo hizo explorer. Además me gusta la flexibilidad de Perl y cómo llama a la subrutina y lo utiliza con el for, es una forma muy sencilla e interesante de hacerlo...

Me pregunto, explorer, si podría hacer algo como otro perlero lo hizo de que me pudiera indicar algunos ejercicios para poder practicar. Se los agradecería mucho...

por **explorer** » 2008-09-07 16:45 @740

Se me ha ocurrido otra forma: crear primero la parte de arriba y luego crear la parte de abajo, tomando la parte invertida de la primera.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
my$t=10;
my@al_derecho=map{' ' x ($t-$_).'*' x ($_*2+1).' ' x ($t-$_)."\n"} 0..$t;
my@al_reves=reverse@al_derecho[0 ..$#al_derecho-1];

printjoin'',@al_derecho,@al_reves,"\n";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2008-09-07 16:57 @748

L0rd5had0w escribiste:Me pregunto, explorer, si podría hacer algo como otro perlero lo hizo de que me pudiera indicar algunos ejercicios para poder practicar. Se los agradecería mucho...

Pues el caso es que es algo complicado. Diseñar prácticas requiere una cierta habilidad...

En el foro de Concursos de Perl hay algunos de ellos, pero son de habilidades muy distintas.

Otra forma sería entrar en el foro Básico, mirar la pregunta, e intentar resolverla sin mirar la solución.

por **Jenda** » 2008-09-07 17:27 @769

Podemos simplificarlo un poquito:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$t=10;
my@al_reves=reverse(my@al_derecho=map{' ' x ($t-$_).'*' x ($_*2+1)} 0 ..($t-1));

printjoin"\n",@al_derecho,'*' x ($t*2+1),@al_reves;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Otra posibilidad es aprovechar los regex:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$t=10;
$_=(' ' x ($t-1))."*\n";
print;
printwhile(s/ \*/**/ands/\*$/**/);
printwhile(s/\*\*/*/ands/\*$//);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y actualmente basta esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$t=10;
$_=(' ' x ($t-1))."*\n";
print;
printwhile(s/ \*/***/);
printwhile(s/\*\*//);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **L0rd5had0w** » 2008-09-07 17:32 @772

Excelente respuestas; gracias por su apoyo y sería interesante hacer las prácticas de concurso pero si lo difícil es que es de habilidades distintas... pero bueno, voy a probar hacerlas y gracias por sus respuestas. Es muy sencillo al lado del testamento que yo hice para sacarlo. Gracias, jejeje...

mmm, me podrían explicar que hace map

Foro - Perl en Español

Forma de hacer un programa

Forma de hacer un programa

Publicidad

¿Quién está conectado?