Mega Sena
Simples script que sorteia 6 números de forma aleatória para a mega sena.
Obs: Este script não faz nenhum jogo preciso, pois é aleatório.
Obs: Este script não faz nenhum jogo preciso, pois é aleatório.
Descrição
Simples script que sorteia 6 números de forma aleatória para a mega sena.
Obs: Este script não faz nenhum jogo preciso, pois é aleatório.
Obs: Este script não faz nenhum jogo preciso, pois é aleatório.
#!/usr/bin/perl
print "\n Mega-Sena \n\n";
my @range = (0 .. 60);
for ($x=0; $x<=5; $x++)
{
@random_number = int(rand(@range)+1);
print "@random_number ";
}
print "\n\n";