Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Mega Sena

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Perl Mega Sena

    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";
    ele pode gerar numeros iguais tipo 17 59 26 26 29 4

    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. =]
    Não Acha Estranha Essa Frase:
    Eu Sou Hacker e Uso Windows XP!

    Use Débian, Aprenda Slackware e Brinque Muito Com Back|Track


    Fã ->Nickguitar.dll


    Quer ajudar nossso fórum e não sabe como?
    Então click na imagem e ajude-nos com os links off

  • Font Size
    #2
    valeu bhother

    Comment


    • Font Size
      #3
      preciso de um que para gerar de 10 em 10 numeros sendo que existem 80 numeros possiveis >>>e ai tem como manin ?

      Comment


      • Font Size
        #4
        Fiz um semelhante em C, mas não consegui td esse dinheiro, nem jogando nos bichos. hehehehehehe

        Comment


        • Font Size
          #5
          tem como disponibilizar ? e tbm me manda seu email por mp
          se ganhar posso recompensar seu trabalho manin

          Comment


          • Font Size
            #6
            Postado Originalmente por ricardo_mutant Ver Post
            tem como disponibilizar ? e tbm me manda seu email por mp
            se ganhar posso recompensar seu trabalho manin
            ate tenho fera, so da uma procurada depois no meu outro pc

            e posto aqui, mas me lembro que era um codigo pekeno e igual ao do lord gerava numeros aleatorios, mas so o cara tendo mt sorte pra ganhar tipo 0,0000000000001 em 100.

            Comment


            • Font Size
              #7
              Sahshahs..

              Muito bom lord, enteressante... Como tem akele ditado "Duas cabeça pensa melhor do que uma !", entao ajunta uma galera e bora cria um que seja 100% rs...

              FalcoOmxD


              "stay hungry stay foolish" - Um perfeito círculo virtuoso, talvez utópico, mas alcançável.
              Steve Jobs

              Comment


              • Font Size
                #8
                Postado Originalmente por ricardo_mutant Ver Post
                preciso de um que para gerar de 10 em 10 numeros sendo que existem 80 numeros possiveis >>>e ai tem como manin ?
                troquei dois números =]

                #!/usr/bin/perl

                print "\n Mega_Sena \n\n";

                my @range = (0 .. 80);

                for ($x=0; $x<=10; $x++)
                {
                @random_nr = int(rand(@range)+1);
                print "@random_nr ";
                }
                print "\n\n";

                Não Acha Estranha Essa Frase:
                Eu Sou Hacker e Uso Windows XP!

                Use Débian, Aprenda Slackware e Brinque Muito Com Back|Track


                Fã ->Nickguitar.dll


                Quer ajudar nossso fórum e não sabe como?
                Então click na imagem e ajude-nos com os links off

                Comment


                • Font Size
                  #9
                  A pedidos, resolvido o problema dos números iguais. =P

                  Código PHP:
                  my %= ();
                  for (
                  .. ) {
                      
                  my $n int(rand 60);
                      
                  redo if $n == or defined $n{$n};
                      
                  $n{$n} = 1;
                  }
                  my @keys %n;
                  print 
                  "@m\n"
                  []'s
                  Desenvolvedor Perl, PHP, .NET (C#, VB.NET, ASP.NET), Java (J2EE), Shell Script, JavaScript/Ajax, C, amante de Linux e noob.

                  twitter | last.fm

                  Comment

                  X
                  Working...
                  X