Comme en Perl obtenir un nombre aléatoire de N à M

De la tâche. En Perl, vous aurez besoin d'obtenir un nombre entier aléatoire de N à M. Par exemple, vous devez obtenir le nombre de 1 à 6 comme si jeter un dé.

Pour ce faire, vous devez utiliser la fonction rand().

Voici un exemple de code qui affiche un nombre aléatoire de 1(inclus) jusqu'à 6 (également inclus):

▶ Run
#!/usr/bin/perl

my $number = 1 + int(rand(6));

print $number;
  • rand(6) renvoie un nombre fractionnaire de 0 (inclus), jusqu'à 6 (mais pas y compris le nombre de 6).
  • int(rand(6)) renvoie un nombre entier de 0 à 5
  • parce que nous voulons obtenir un nombre entier allant 1 au résultat int(rand(6)) besoin d'ajouter 1

En général, si nous voulons obtenir un nombre entier aléatoire de $n à $m, il faut écrire:

▶ Run
#!/usr/bin/perl

my $n = 1;
my $m = 6;

my $number = $n + int(rand( $m - $n + 1 ));
print $number;

Thèmes connexes

Autres articles