A program that generates random integers between 1 and 10. : rand « System Functions « Perl

1. Perl
2. System Functions
3. rand

A program that generates random integers between 1 and 10.

      
#!/usr/local/bin/perl 

# collect the random numbers 
$count = 1; 
while ($count <= 100) { 
    $randnum = int( rand(10) ) + 1; 
    $randtotal[$randnum] += 1; 
    $count++; 
} 
 
# print the total of each number 
$count = 1; 
print ("Total for each number:\n"); 
while ($count <= 10) { 
   print ("\tnumber $count: $randtotal[$count]\n"); 
   $count++; 
} 

   
    
    
    
    
    
  

Related examples in the same category