Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Euromillions oneliner

by olus (Curate)
on Feb 03, 2006 at 13:20 UTC ( [id://527623]=obfuscated: print w/replies, xml ) Need Help??

Guaranteed the winner key, if you run it enough times 

perl -le '
                   @l=(1..49);@i=
                (1..9);       sub z{
               splice(
              @_,rand@
              _,1);}sub Y{push@@,
              z@_;}*_=*l;Y@_;Y@_;
              Y@_;Y@_;
              Y@_;*_=*
              i;Y@_;Y@_;$,=" ";
              sub l{print+sort{
              $a<=>$b}
                @_;}l+       splice
                   (@@,0,5); l@@;
'

[download]

Replies are listed 'Best First'.
Re: Euromillions oneliner
by thor (Priest) on Feb 03, 2006 at 22:14 UTC
    Guaranteed the winner key, if you run it enough times
    Nothing's guaranteed, my friend. There's nothing preventing your program from outputting the same combo over and over again. You wouldn't expect it, but it's not guaranteed that it won't. Cool obfuscation, though. :)

    thor

    The only easy day was yesterday

[reply]
Re: Euromillions oneliner
by explorer (Chaplain) on Feb 03, 2006 at 19:42 UTC
    HUmmm... this code have a error, no?
    2 30 30 34 45
3 8

    [download]
    :-)
[reply]
[d/l]
      And you were expecting to get the right key at the first time?
      But hey, if you win, just remember who's your friend (c:

      Cheers and best luck

      --
      olus
[reply]

Back to Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: obfuscated [id://527623]
Approved by Mago
Front-paged by Mago
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others chilling in the Monastery: (3)
As of 2024-04-19 21:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found