Mega Sena

Publicado por Leonardo Berbert Gomes (última atualização em 09/08/2011)

[ Hits: 4.961 ]

Homepage: https://www.linkedin.com/in/leoberbert

Download mega_sena.pl




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.

  



Esconder código-fonte

#!/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";

Scripts recomendados

Gravar CDROM

MyBF - Interpretador de BrainFuck

Diminuir ou aumentar o brilho de notebook

Calculadora com Perl com menos de 10 linhas de código

Wallpapers aleatórios no Fluxbox


  

Comentários
[1] Comentário enviado por albertguedes em 09/08/2011 - 10:21h

Opa, agora todo mundo ganha :D

[2] Comentário enviado por danniel-lara em 09/08/2011 - 14:50h

Legal o Script , vou utilizar para jogar na mega sena
caso eu ganhar , você receberar um parte do premio . heheheh


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts