Come in Perl ottenere un numero casuale da N a M

Il compito. In Perl programma, è necessario ottenere un numero casuale da N a M. Ad esempio, è necessario ottenere un numero da 1 a 6 come se lanciamo un dado.

Per fare questo è necessario utilizzare la funzione rand().

Ecco un esempio di codice che visualizza un numero casuale da 1(compreso) a 6 (anche compreso):

▶ Run
#!/usr/bin/perl

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

print $number;
  • rand(6) restituirà un numero frazionario di 0 (compreso), fino 6 (ma non tra cui il numero di 6).
  • int(rand(6)) restituisce un numero intero da 0 a 5
  • perché vogliamo ottenere un numero intero a partire dal 1 al risultato int(rand(6)) bisogno di aggiungere 1

In generale, se vogliamo ottenere un numero casuale da $n a $m, allora avete bisogno di scrivere:

▶ Run
#!/usr/bin/perl

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

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

Temi correlati

Altri articoli