Autor
Veran, tengo el siguiente codigo en PERL:
adivina.pl
Código:
#!/usr/bin/perl
$numero = rand(100);
until ($entrada == $numero) {
print "Introduzca un numero del 1 al cien";
$entrada = <STDIN>;
if ($entrada < $numero) {
print "El numero que has introducido es mas pequeño que MI numero :( ";
}
elsif ($entrada > $numero) {
print "Tu numero es mas grande que el MIO :(";
}
}
print "Has acertado!!";
$numero = rand(100);
until ($entrada == $numero) {
print "Introduzca un numero del 1 al cien";
$entrada = <STDIN>;
if ($entrada < $numero) {
print "El numero que has introducido es mas pequeño que MI numero :( ";
}
elsif ($entrada > $numero) {
print "Tu numero es mas grande que el MIO :(";
}
}
print "Has acertado!!";
Cuando lo ejecuto, se bloquea el bucle y no para de salir texto...
Haber si alguien sabe que pude pasar.
Salu22!!
En línea
Introduzca un numero del 1 al cien33
