Lottery - Challenge

[jguinch]

Thanks Mikell You can do the same thing that you did for the regexp...

[Gianni]

Yeah.. It's the same code as last time, but the while loop is replaced by an this :

Local $tab[] = [ _ 
",01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49", _
StringMid($tab[0], Random(0, 48, 1) * 3 + 2, 2), _ 
StringReplace($tab[0], "," & $tab[1], ""), _
StringMid($tab[2], Random(0, 47, 1) * 3 + 2, 2), _
StringReplace($tab[2], "," & $tab[3], ""), _
StringMid($tab[4], Random(0, 46, 1) * 3 + 2, 2), _
StringReplace($tab[4], "," & $tab[5], ""), _
StringMid($tab[6], Random(0, 45, 1) * 3 + 2, 2), _
StringReplace($tab[6], "," & $tab[5], ""), _        ;  <--- $tab[7]
StringMid($tab[8], Random(0, 44, 1) * 3 + 2, 2), _
StringReplace($tab[8], "," & $tab[5], ""), _        ;  <--- $tab[9]
StringMid($tab[10], Random(0, 43, 1) * 3 + 2, 2), _
StringReplace($tab[10], "," & $tab[5], ""), _       ;  <--- $tab[11]
StringMid($tab[12], Random(0, 42, 1) * 3 + 2, 2), _
Number($tab[1]) & "," & Number($tab[3]) & "," & Number($tab[5]) & "," & Number($tab[7]) & "," & Number($tab[9]) & "," & Number($tab[11]) & "," & Number($tab[13]) ]

Now, I'm tired... If someone as few time to optimize the rows 17 and 18 ...

 

good! nice idea.

p.s.

i posted a little debug in your listing

Edited March 26, 2014 by PincoPanco

[jguinch]

Thanks PincoPanco.

I edited my code.

[czardas]

jguinch - you are the man.

[jguinch]

Thanks czardas.

The challenge allow me to learn so many things !

For the fun, here is another one-line code that does not use the array declaration method. Instead, it uses the Assign function... and the regexp is now optimized... The random method is optimized too..

$result = Assign( "computer", StringRegExpReplace( StringRegExpReplace( StringRegExpReplace( StringRegExpReplace(   Assign("tmp", ",01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49") * Assign("tmp",   StringRegExpReplace(Eval("tmp"), "([\d,]*)(" &  StringMid(Eval("tmp"), Random(0, 48, 1) * 3 + 1, 3) & ")([\d,]*)", "$1$3$2") ) * Assign("tmp",   StringRegExpReplace(Eval("tmp"), "([\d,]*)(" &  StringMid(Eval("tmp"), Random(0, 47, 1) * 3 + 1, 3) & ")([\d,]*)", "$1$3$2") ) * Assign("tmp",   StringRegExpReplace(Eval("tmp"), "([\d,]*)(" &  StringMid(Eval("tmp"), Random(0, 46, 1) * 3 + 1, 3) & ")([\d,]*)", "$1$3$2") ) * Assign("tmp",   StringRegExpReplace(Eval("tmp"), "([\d,]*)(" &  StringMid(Eval("tmp"), Random(0, 45, 1) * 3 + 1, 3) & ")([\d,]*)", "$1$3$2") ) * Assign("tmp",   StringRegExpReplace(Eval("tmp"), "([\d,]*)(" &  StringMid(Eval("tmp"), Random(0, 44, 1) * 3 + 1, 3) & ")([\d,]*)", "$1$3$2") ) * Assign("tmp",   StringRegExpReplace(Eval("tmp"), "([\d,]*)(" &  StringMid(Eval("tmp"), Random(0, 43, 1) * 3 + 1, 3) & ")([\d,]*)", "$1$3$2") ) * Assign("tmp",   StringRegExpReplace(Eval("tmp"), "([\d,]*)(" &  StringMid(Eval("tmp"), Random(0, 42, 1) * 3 + 1, 3) & ")([\d,]*)", "$1$3$2") ), "\d", Eval("tmp")) , ".*(\d{2}(?:,\d{2}){6})$", "$1$2") , "^0", "") , ",0", ",") ) + Assign("user", StringReplace(StringStripWS(InputBox("Lottery", "Enter your numbers from 1 to 49, separates by a comma or a space (ex : 1,5,10,37,15,43,2)", "1 2 3 4 5 6 7", "", 500, 130), 7), " ", ",")) + (( NOT StringRegExp(Eval("user"), "^(([1-9]|([1-4]\d)),){6}([1-9]|([1-4]\d))$") ) ?     MsgBox(16, "Lottery", "You must enter 7 numbers, separate by a comma") :     (         ( StringRegExp("," & StringReplace(Eval("user"), ",", ",,") & ",", "(,\d+,)(?=.*\1)") ) ?             MsgBox(16, "Lottery", "You cannot choose a same number more than one time") :             MsgBox(0, "Lottery", "You " & ( ( UBound(StringRegExp("," & StringReplace(Eval("user"), ",", ",,") & "," & StringReplace(Eval("computer"), ",", ",,") & ",", "(,\d+,)(?=.*\1)", 3 )) = 7 ) ? " win !!!" : " loose..."  ) & @CRLF & @CRLF &                 "Computer choice : " & Eval("computer") & @CRLF & "Your choice : " & Eval("user") & @CRLF & @CRLF &                 "You have " & UBound(StringRegExp("," & StringReplace(Eval("user"), ",", ",,") & "," & StringReplace(Eval("computer"), ",", ",,") & ",", "(,\d+,)(?=.*\1)", 3 )) & " good numbers")     ))

And the readable code :

$result = Assign( "computer", StringRegExpReplace( _
StringRegExpReplace( _
StringRegExpReplace( _
StringRegExpReplace(   Assign("tmp", ",01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49") * _
Assign("tmp",   StringRegExpReplace(Eval("tmp"), "([\d,]*)(" &  StringMid(Eval("tmp"), Random(0, 48, 1) * 3 + 1, 3) & ")([\d,]*)", "$1$3$2") ) * _
Assign("tmp",   StringRegExpReplace(Eval("tmp"), "([\d,]*)(" &  StringMid(Eval("tmp"), Random(0, 47, 1) * 3 + 1, 3) & ")([\d,]*)", "$1$3$2") ) * _
Assign("tmp",   StringRegExpReplace(Eval("tmp"), "([\d,]*)(" &  StringMid(Eval("tmp"), Random(0, 46, 1) * 3 + 1, 3) & ")([\d,]*)", "$1$3$2") ) * _
Assign("tmp",   StringRegExpReplace(Eval("tmp"), "([\d,]*)(" &  StringMid(Eval("tmp"), Random(0, 45, 1) * 3 + 1, 3) & ")([\d,]*)", "$1$3$2") ) * _
Assign("tmp",   StringRegExpReplace(Eval("tmp"), "([\d,]*)(" &  StringMid(Eval("tmp"), Random(0, 44, 1) * 3 + 1, 3) & ")([\d,]*)", "$1$3$2") ) * _
Assign("tmp",   StringRegExpReplace(Eval("tmp"), "([\d,]*)(" &  StringMid(Eval("tmp"), Random(0, 43, 1) * 3 + 1, 3) & ")([\d,]*)", "$1$3$2") ) * _
Assign("tmp",   StringRegExpReplace(Eval("tmp"), "([\d,]*)(" &  StringMid(Eval("tmp"), Random(0, 42, 1) * 3 + 1, 3) & ")([\d,]*)", "$1$3$2") ), _
"\d", Eval("tmp")) , ".*(\d{2}(?:,\d{2}){6})$", "$1$2") , _
"^0", "") , _
",0", ",") ) + _
Assign("user", StringReplace(StringStripWS(InputBox("Lottery", "Enter your numbers from 1 to 49, separates by a comma or a space (ex : 1,5,10,37,15,43,2)", "1 2 3 4 5 6 7", "", 500, 130), 7), " ", ",")) + _
(( NOT StringRegExp(Eval("user"), "^(([1-9]|([1-4]\d)),){6}([1-9]|([1-4]\d))$") ) ? _
    MsgBox(16, "Lottery", "You must enter 7 numbers, separate by a comma") : _
    ( _
        ( StringRegExp("," & StringReplace(Eval("user"), ",", ",,") & ",", "(,\d+,)(?=.*\1)") ) ? _
            MsgBox(16, "Lottery", "You cannot choose a same number more than one time") : _
            MsgBox(0, "Lottery", "You " & ( ( UBound(StringRegExp("," & StringReplace(Eval("user"), ",", ",,") & "," & StringReplace(Eval("computer"), ",", ",,") & ",", "(,\d+,)(?=.*\1)", 3 )) = 7 ) ? " win !!!" : " loose..."  ) & @CRLF & @CRLF & _
                "Computer choice : " & Eval("computer") & @CRLF & "Your choice : " & Eval("user") & @CRLF & @CRLF & _
                "You have " & UBound(StringRegExp("," & StringReplace(Eval("user"), ",", ",,") & "," & StringReplace(Eval("computer"), ",", ",,") & ",", "(,\d+,)(?=.*\1)", 3 )) & " good numbers") _
    ))

Edited for compliance with the game rules, and no warning with Scite.

Edited March 26, 2014 by jguinch

[Melba23]

jguinch,

I am not sure the word "readable" is entirely correct in the post above!

M23

[mikell]

Brain overclocking 

[Gianni]

 

Thanks czardas.

The challenge allow me to learn so many things !

For the fun, here is another one-line code that does not use the array declaration method. Instead, it uses the Assign function... and the regexp is now optimized... The random method is optimized too..

 

since guinness asked "and have either a comma (,) or single space as the delimiter"

You could change this portion of code

Assign("user", InputBox("Lottery", "Enter your numbers from 1 to 49, separates by a comma (ex : 1,5,10,37,15,43,2)", "1,2,3,4,5,6,7", "", 500, 130) ) + _

with this

Assign("user", StringReplace(StringStripWS(InputBox("Lottery", "Enter your numbers from 1 to 49, separates by a comma or a space (ex : 1,5,10,37,15,43,2)", "1 2 3 4 5 6 7", "", 500, 130), 7), " ", ","))

in order to be compliant .....

[jguinch]

You are rigth, PincoPanco. #65 edited. Thanks

[guinness]

I will give it one more day.

By the way, I came up with this regular expression to match if the values are not between 1 and 49 >> http://regex101.com/r/lC9jX8 OR optimised >> http://regex101.com/r/sD1bO7

PS my C# version is now down to just 2 lines.

Edited March 27, 2014 by guinness

[guinness]

Checking if both lottery strings match >> http://regex101.com/r/wG0jM0

[czardas]

Who is the winner?

[mLipok]

Good question.

but ultimately

http://www.youtube.com/watch?v=04854XqcfCY&feature=kp

[jguinch]

czardas, there is no winner, because Guiness did no play ...  

[mikell]

jguinch, don't be shy

Guinness said in his first post that he choosed not to play

You've got 2 one-liners using 2 different ways - the 2nd one using Assign unprecedented - so IMHO you are definitely the winner