Let system determine seed : rand « System Functions « Perl






Let system determine seed

      


srand();  

for (1 .. 3) {

   print "\n\nAfter seed has been reset\n";

   for ( 1 .. 3 ) {
      print "  ", 1 + int( rand( 6 ) );
   }

}

   
    
    
    
    
    
  








Related examples in the same category

1.Using foreach loop to create a list of random number
2.Random integers produced by 1 + int( rand( 6 ) )
3.Random numbers produced by rand( 100 )
4.Random numbers produced by rand()
5.Generate random numbers
6.Combine rand function and letter range to generate random letter
7.Seed rand with the time or the pid of this process
8.Formula to produce random numbers between 5 and 15 inclusive
9.A program that generates random integers between 1 and 10.