-
- Publicidad
random function
4 mensajes
• Página 1 de 1
random function
por wampaier » 2009-07-01 12:04 @544
¿Qué tal...? Me podrían ayudar con la función random()?... Encontrar un script... pero ¿cómo podría hacerle para que yo introduzca una lista de 88 números y me escogiera 5 al azar...?
- wampaier
- Perlero nuevo
- Mensajes: 66
- Registrado: 2008-08-12 12:50 @576
Publicidad
por wampaier » 2009-07-01 12:28 @561
Tengo este script... solo que no sé cómo introducir dicha lista de 88 números aleatorios para que me escoja 5 números de dicha lista...
Este es el código:
Este es el código:
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict;
use warnings;
my $range = 88;
my $minimum = 5;
for (my $i = 1; $i <=5; $i++) {
my $random_number = int(rand($range)) + $minimum;
print $random_number . "\n";
}
use strict;
use warnings;
my $range = 88;
my $minimum = 5;
for (my $i = 1; $i <=5; $i++) {
my $random_number = int(rand($range)) + $minimum;
print $random_number . "\n";
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
- wampaier
- Perlero nuevo
- Mensajes: 66
- Registrado: 2008-08-12 12:50 @576
por netsoul » 2009-07-01 16:47 @741
Utilizando módulos podrías simplificar:
Como se puede observar, los parámetros son: 5 para el mínimo, y 88 para el rango (máximo).
=)
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict;
use warnings;
use Math::Random::OO::Uniform;
for (0..4){
$a = int(Math::Random::OO::Uniform->new(5,88)->next());
print "$a\n";
}
use strict;
use warnings;
use Math::Random::OO::Uniform;
for (0..4){
$a = int(Math::Random::OO::Uniform->new(5,88)->next());
print "$a\n";
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Como se puede observar, los parámetros son: 5 para el mínimo, y 88 para el rango (máximo).
=)
With Perl
Imagination is more important than knowledge. Albert Einstein.
Imagination is more important than knowledge. Albert Einstein.
- netsoul
- Perlero nuevo
- Mensajes: 150
- Registrado: 2008-05-04 01:11 @091
por wampaier » 2009-07-02 09:44 @447
Gracias... encontré una forma diferente de hacerlo... pero de todas maneras se agradece... el script que hice tiene un poco más de líneas pero a fin de cuentas salió...
De todas maneras se agradece el apoyo
De todas maneras se agradece el apoyo
- wampaier
- Perlero nuevo
- Mensajes: 66
- Registrado: 2008-08-12 12:50 @576
4 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados