# File:	rand0.pl
# Title:  Random number
# Author:	Mihaela Malita
# 	C:\Users\mmalita>cd ../..
# 	C:\>cd myPerl
#	C:\myPerl>perl rand0.pl
#	Generates a random number 0 <= 0.172760009765625 < 1
#	Generates a random integer 0 <= 2 < 10
#	Generates a random integer 4 <= 9 < 10
$n = rand;
print "Generates a random number 0 <= $n < 1"; 

$max = 10;
$n = int rand($max);
print "\nGenerates a random integer 0 <= $n < $max"; 

$min = 4;
$n = int rand($max-$min) + $min;
print "\nGenerates a random integer $min <= $n < $max"; 

$n = int rand(6) + 1;
print "\nGenerates a random integer DIE 1 <= $n <= 6"; 
exit;