Foro - Perl en Español

por **Alfumao** » 2010-11-08 09:57 @456

Hola a todos,

He intentado hacer como práctica un programa para jugar al "AHORCADO". Pero aunque el programa funciona relativamente, tengo un problema crucial con el control de los fallos. Resulta que cada letra introducida para ver si esta en la palabra secreta, me es reconocida como fallo a excepción de la primera letra de la palabra secreta. Es decir, que hay un descontrol en el bucle encargado de controlar los fallos. No soy capaz de idear una forma de controlarlo... ¿Alguien me puede ayudar?

Gracias por adelantado.

Aquí va el código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:\Perl\bin\perl.exe
use strict; 
use warnings; 
 
print "Elige tu palabra secreta:\n";
chomp(my $word = <STDIN>);
my @word = split ('', $word);
my @hidden = ((0) x scalar (@word));
 
my @toy = ("","O","-","|","-","<");
my @palis =();
my $i = 0;
my $wrong = 0;
my $right = 0;
 
CORE: #Bucle Central
while (($wrong < 6)){  
print"Dí una letra:\n";
chomp(my $guess = <STDIN>);
    foreach $i (0..$#word){
        if ($guess eq $word[$i]){  #Correctos
            $right++;
            $word[$i] = $guess;
            $hidden[$i] = $guess;
            print "\¡ACIERTO!\n";
            print "@hidden\n";
            &compare;
            next;
        }
        }
 
        if ($guess eq $word[$i]){ #Fallos
            next CORE;
            }
        else {
            $wrong++;
            print "\¡Fallo!\n";
            my $muneco = shift(@toy);
            push (@palis,$muneco);
            print"@palis\n";
            next; 
        }
}
&guess_word;
 
sub compare{ #Final correcto
  my $hidden = join ("", @hidden);
  my $e_word = join ("", @word);
if ($e_word =~ /$hidden/){
    print"Correcto -> \¡GANASTE\!\n!\n";
    exit;
    }
}
sub guess_word{ #Ultima oportunidad
  my $hidden = join ("", @hidden);
  my $f_word = join ("", @word);
if ($f_word =~ /$hidden/){
    print"\¡GANASTE\!\n";
   return 1;
   }else {
    print "Intenta adivinar la palabra completa:\n";
    chomp(my $g_word = <STDIN>);
    if ($g_word =~ /$word/){
    print"\¡GANASTE\!\n";
    return 1;
    } else {
     print "\¡AHORCADO\!";   
    exit;
    }
}
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El problema es que la comprobación de si hay un fallo (sentencia if() de la línea 32) está fuera del bucle que recorre la palabra, en la línea 20.

El bucle comprueba los aciertos, pero al salir del bucle, si la última letra es un fallo, siempre entrará en la parte de fallo.

Te recomiendo que aprendas a usar el depurador paso a paso de Perl, así se ve fácil dónde está el fallo.

por **Alfumao** » 2010-11-08 17:59 @791

Hola, explorer.

Es que si lo meto en el bucle, como tú dices, aún funciona peor... porque al meter la primera letra, cada letra no acertada la cuenta como fallo, pudiendo así perder la partida con solo meter una letra (incluso si ésta es correcta) si la palabra tiene más de 7 letras en total (se dibujaría todo el ahorcado de una vez)... gracias a que lo saqué de ese bucle, solo me daba un fallo por iteración del bucle.

Creo que es cosa de controlar de forma independiente el bucle de los fallos, pero no sé cómo hacerlo.

Saludos.

PD. ¿Dónde puedo aprender a usar el depurador de Perl? Gracias de nuevo.

por **explorer** » 2010-11-08 19:18 @845

Yo creo que es fácil: se produce un fallo solo en el caso de que, al terminar el bucle, no se haya encontrado ninguna letra correcta. Eso quiere decir que deberás llevar la cuenta de los aciertos dentro del bucle. Y si no hay aciertos... es un fallo.

Sobre el tema del depurador, Google me dice que en Tutorial de Perl de JJ Merelo (pdf), entre las páginas 8 y 9, se comenta, brevemente, el uso del depurador. Bueno, con saberse los comando 'n' (siguiente instrucción), 's' (ir paso a paso), y 'p' (de print), vale.

Hecha un vistazo también a la La Guía de Brian para resolver cualquier problema Perl.

por **Alfumao** » 2010-11-10 10:29 @478

¡Gracias explorer!

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:\Perl\bin\perl.exe
use strict; 
use warnings; 
 
print "Elige tu palabra secreta:\n";
chomp(my $word = <STDIN>);
my @word = split ('', $word);
my @hidden = ((0) x scalar (@word));
 
my @toy = ("O","-","|","-","<");
my @palis =();
my $i = 0;
my $wrong = 0;
my $right = 0;
 
CORE: #Bucle Central
while (($wrong < 5)){  
print"Dí una letra:\n";
chomp(my $guess = <STDIN>);
my $right_guess = 0;
    foreach $i (0..$#word){
        if ($guess eq $word[$i]){  #Correctos
            $right_guess = 1;
            $right++;
            $word[$i] = $guess;
            $hidden[$i] = $guess;
            print "\¡ACIERTO!\n";
            print "@hidden\n";
            &compare;
            next;
        }
    }
         if (! $right_guess){
            $wrong++;
            print "\¡FALLASTE!\n";
            my $muneco = shift(@toy);
            push (@palis,$muneco);
            print"@palis\n";
            next;
                    }
        }    
&guess_word; 
     
sub compare{ #Final correcto
  my $hidden = join ("", @hidden);
  my $e_word = join ("", @word);
if ($e_word =~ /$hidden/){
    print"Correcto -> \¡GANASTE\!\n!\n";
    exit;
    }
}
sub guess_word{ #Ultima oportunidad
  my $hidden = join ("", @hidden);
  my $f_word = join ("", @word);
if ($f_word =~ /$hidden/){
    print"\¡GANASTE\!\n";
   return 1;
   }else {
    print "Intenta adivinar la palabra completa:\n";
    chomp(my $g_word = <STDIN>);
    if ($g_word =~ /$word/){
    print"\¡GANASTE\!\n";
    return 1;
    } else {
     print "\¡AHORCADO\!";   
    exit;
    }
}
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Problema con el control de un bucle

Problema con el control de un bucle

Publicidad

Re: Problema con el control de un bucle

Re: Problema con el control de un bucle

Re: Problema con el control de un bucle

Re: Problema con el control de un bucle

¿Quién está conectado?