Mega Sena
Esse scriptizinho é bobo, mas acho que da pra nós termos uma noção legal de rand.
#!/usr/bin/perl
print "\n Mega_Sena \n\n";
my @range = (0 .. 60);
for ($x=0; $x<=5; $x++)
{
@random_nr = int(rand(@range)+1);
print "@random_nr ";
}
print "\n\n";
print "\n Mega_Sena \n\n";
my @range = (0 .. 60);
for ($x=0; $x<=5; $x++)
{
@random_nr = int(rand(@range)+1);
print "@random_nr ";
}
print "\n\n";
Mas ai eu deixo com vocês resolverem, é facinho... haeihaih LB-A
eu to querendo fazer um em Delphi que pegue os numeros baseado nas estatisticas.
esse sim vai ficar da hora. =]
Comment