Foro - Perl en Español

por **BigBear** » 2010-01-08 16:35 @732

Hola estoy haciendo un programa que genera números mediante una función llamada &generacion. Lo que yo quiero hacer es que este código verifique constantemente si la función &generacion no devuelve un número que sea múltiplo de 10.

Una parte del código es esta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

($ultimo,$carta)=&generacion;
if($ultimo=~/0$/){
print"Ok , generacion exitosa\n\n\a";
exit1;
}else{
print"Seguir generando........\n\n";
&generacion;
}Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Lo que yo quiero es que si la variable $ultimo que devuelve &generacion, no es múltiplo de 10, el código siga con la función &generacion constantemente hasta que devuelva un valor múltiplo de 10 y así salir del código.

¿Pero, cómo lo haría?

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
my $ultimo;
 
do {
    ($ultimo) = generacion();
} while ($ultimo !~ /0$/);
 
print "$ultimo\n";
 
sub generacion {
    my @myarray = (0 .. 9);
    my $re;
 
    for (1 .. 2) {
       my $x = int rand @myarray;
       $re .= $myarray[$x];
    }
 
    return $re;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De todas maneras... si lo que quieres es generar números aleatorios, de dos cifras, múltiplos de diez, se puede hacer de forma "aparente":

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
my $ultimo = int(rand(10)) . '0';
 
print "$ultimo\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2010-01-08 19:01 @834

Gracias a los dos. Ahora otra duda sobre

return int $re;

¿Cómo hago para usar dos variables en el return?

porque hago return int($re,$re2); y me da error.

por **explorer** » 2010-01-08 20:11 @883

return $re, $re2;

por **explorer** » 2010-01-09 10:31 @479

int (rand 10) * 10 no devuelve números del 1 al 100, sino del 0 al 90.

Foro - Perl en Español

Control de generación de números

Control de generación de números

Publicidad

Re: Control de generacion de numeros

Re: Control de generacion de numeros

Re: Control de generacion de numeros

Re: Control de generacion de numeros

Re: Control de generación de números

Re: Control de generación de números

Re: Control de generación de números

Re: Control de generación de números

Re: Control de generación de números

¿Quién está conectado?