Euromillions oneliner

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]

Comment on Euromillions oneliner Download Code

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]
Re^2: Euromillions oneliner by olus (Curate) on Feb 03, 2006 at 21:32 UTC
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]