Lottery - Challenge

[Melba23]

guinness,

16 lines (although I have added comments and the possibility for a sneak peek at the result to check it works):

;#include <Array.au3> ; Uncomment to see answer

; Create an array and set 7 unique elements
Global $aCheck[52]
Do
    $iRandom = Random(1, 50, 1)
    If Not $aCheck[$iRandom] Then
        $aCheck[$iRandom] = 1
        $aCheck[0] +=1
    EndIf
Until $aCheck[0] = 7

;_ArrayDisplay($aCheck, "", Default, 8) ; Uncomment to see answer

; Get the 7 choices
For $iChoice In StringSplit(InputBox("Enter 7 numbers", "From 1-50, comma or space delimited"), " ,", 2)
    ; Count the choices
    $aCheck[51] += 1
    ; Check against the selections and prevent double counts
    If $iChoice > 0 And $iChoice < 51 And $aCheck[$iChoice] Then
        $aCheck[$iChoice] = ""
        $aCheck[0] -= 1
    EndIf
Next
; Give the result
ConsoleWrite( ( ($aCheck[51] = 7) ? (($aCheck[0]) ? ("Lost") : ("Won")) : ("Enter 7 numbers"))& @CRLF)

You can insert the choices in any order - double choices are not honoured - must have 7 choices.

M23

Edited March 24, 2014 by Melba23
Added bounds check for choices

[mikell]

Melba,

Your code allows to enter the same number twice in the inputbox

[Melba23]

mikell,

Yes, but it does not count it as a valid match twice (I did say "double choices are not honoured ") - try it and see.

M23

[guinness]

Wow so many posts, so thanks to sahsanu,czardas, nitekram (again! super awesome), jguinch (very nice), Melba23.

By the way I ran you code and got Variable used without being declared.: for $iMax.

To all,

So far jguinch is top of the leader board, but I will let this competition run for another day or so before closing.

czardas,

I think these are good because it makes a change from all the support questions we get around here. I was also hoping the coders who stay in Chat might give it a go too, but one can only hope!

[Melba23]

guinness,

Oops. Added a line from a more advanced version - try again now.

M23

[guinness]

Thanks.

[Jfish]

Mine is a bit long but it was fun trying ...

#include<Array.au3>
local $num,$count=0,$winningNums[7],$loser=true, $correctNums
while($count<UBound($winningNums-1))
    $num=round(Random(1,50),0)
    if _ArraySearch($winningNums,$num)= -1 Then
        _arrayPush($winningNums,$num)
        $count+=1
    EndIf
WEnd
while $loser=true
$playerString=InputBox("enter your numbers","enter 7 unique comma separated nums from 1-50")
dim $playerNums=StringSplit($playerString,",")
dim $uniqueCheck=_ArrayUnique($playerNums)
if $uniqueCheck[1] <> ubound($winningNums) Then
    MsgBox("","Error","Your numbers are not unique, please try again")
EndIf
for $a=0 to UBound($winningNums)-1
    if _arraySearch($playerNums,$winningNums[$a])<>-1 Then
        $correctNums+=1
    EndIf
    if $correctNums=7 Then
        MsgBox("","","you win!")
        $loser=False
    EndIf
Next
WEnd

Edited March 24, 2014 by Jfish

[mikell]

What about a 3-liner ?

Do
   Local $comp[] = [ ( Random (1, 49, 1) & "," &  Random (1, 49, 1) & "," &  Random (1, 49, 1) & "," &  Random (1, 49, 1) & "," &  Random (1, 49, 1) & "," &  Random (1, 49, 1) & "," &  Random (1, 49, 1) ) , UBound(StringRegExp(StringRegExpReplace($comp[0], '\b(\d+)\b(?=.*\b\1\b.*)', ''), '\d+', 3) ), (($comp[1] = 7) ? (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, 150)) : Sleep(1) ), (($comp[2] <> "") ? StringRegExp($comp[2], '^([1-4]?[0-9],){6}[1-4]?[0-9]$') : MsgBox(5, "", "invalid entry, retry ?") ), UBound(StringRegExp(StringRegExpReplace($comp[0] &","& $comp[2], '\b(\d+)\b(?=.*\b\1\b.*)', ''), '\d+', 3) ), (($comp[3] = 1) ? (MsgBox(0, "", "You " & (( $comp[4] = 7 ) ? "win" : "loose" ) & @CRLF & @CRLF & "Computer choice : " & $comp[0] & @CRLF & "Your choice : " & $comp[2] & @CRLF & @CRLF & "You found " & 14-$comp[4] & " good numbers") ) : Sleep(1) ) ]
Until $comp[3] = 1 or $comp[3] = 2

Edit

Thanks jguinch for the regex simplification

BTW conceptually I took a lot from your code 

Edited March 24, 2014 by mikell

[Melba23]

guinness,

Down to 8 lines:

Do
    ; Get computer generated sequence - use nonnumeric first element so Number returns 0
    $vComputer = "=," & Random(1, 50, 1) & "," & Random(1, 50, 1) & "," & Random(1, 50, 1) & "," & Random(1, 50, 1) & "," & Random(1, 50, 1) & "," & Random(1, 50, 1) & "," & Random(1, 50, 1)
    ; Uncomment to cheat <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    ; ConsoleWrite("Computer: " & $vComputer & @CRLF) ; <<<<<<<<<<<<<<<<<<<<<<
    ; Get user input if no duplicates in computer list
    $sInput = ( (StringRegExp($vComputer, "(?U)([^,]+),(?=(?:[^,]*,)*?\1(?:,|$))")) ? ("") : (StringReplace(InputBox("Enter 7 numbers", "Between 1-50, comma/space delimited"), " ", ",")) )
; Check no duplicates in user list and that list has correct number of values
Until StringRegExp($sInput, "(?U)([^,]+),(?=(?:[^,]*,)*?\1(?:,|$))") = 0 And StringSplit($sInput, ",")[0] = 7
; Loop through the computer values
For $sElement in StringSplit($vComputer, ",", 2)
    ; Check for exact match with user input - leading and trailing commas prevent part matches - add number of matches to start of computer string
    If StringInStr("," & $sInput & ",", "," & $sElement & ",") <> 0 Then $vComputer = (Number(Stringleft($vComputer, 1)) + 1) & $vComputer
Next
; Give result
ConsoleWrite( ( (StringLeft($vComputer, 1) = 7) ? ("Won") : ("Lost") ) & " - Computer: " & StringTrimLeft($vComputer, StringInStr($vComputer, ",")) & " - User: " & $sInput & @CRLF)

At least mine is just about understandable!

M23

Edited March 24, 2014 by Melba23
Typo

[jguinch]

Mikell, your mastering Regular Expressions ridiculed me!

Just one thing, you can replace this : StringReplace(StringRegExpReplace($comp[0], 'b(d+)b(?=.*b1b.*)', ''), ",,", ",")

I used this replacement because I'm not very good with regexps.

Congratulations my friend !

[Gianni]

another attempt

Only raw autoit code (also no regexp usage )

all rules cheched

(Before shave version)

Global $a[50][2], $in1 = StringStripWS(StringReplace(InputBox("Lottery", "Please enter 7 numbers (ranging from 1 to 49)"), ",", " "), 7), $in2, $in = StringSplit($in1, " ,"), $Strike = 0, $x0 = 1, $x1 = 49, $x3 = 7
For $i = 1 To UBound($in) - 1
    If $in[0] <> $x3 Or $in[$i] < $x0 Or $in[$i] > $x1 Then Exit MsgBox(0, "Wrong input", "your input does not conform with guinness's rules")
    If $a[$in[$i]][1] Then Exit MsgBox(0, "Wrong input", "your entered duplicate numbers")
    $a[$in[$i]][1] = Int($in[$i]) + SetRnd(Random(1, 49, 1)) ; <-- added Int()
Next
For $i = 1 To UBound($in) - 1
    $Strike += $a[$in[$i]][0] = $a[$in[$i]][1]
Next
MsgBox(0, "Result", "You entered this " & UBound($in) - 1 & " numbers:" & @CR & @CR & $in1 & @CR & @CR & "of which " & $Strike & " matching to those random generated by PC" & @CR & @CR & $in2)
Func SetRnd($rnd)
    If $a[$rnd][0] Then SetRnd(Random(1, 49, 1))
    If Not $a[$rnd][0] Then
        $a[$rnd][0] = $rnd
        $in2 &= $rnd & " "
    EndIf
EndFunc   ;==>SetRnd

EDIT:

shaved out 2 unnecessary lines of code (15 lines now)
it should work as well
also added an Int() statement

a bit shaved new version ( 12 lines now)

Global $a[50][2], $in1 = StringStripWS(StringReplace(InputBox("Lottery", "Please enter 7 numbers (ranging from 1 to 49)"), ",", " "), 7), $in2, $in = StringSplit($in1, " ,"), $Strike = 0, $x0 = 1, $x1 = 49, $x3 = 7
For $i = 1 To UBound($in) - 1
    If $in[0] <> $x3 Or $in[$i] < $x0 Or $in[$i] > $x1 Then Exit MsgBox(0, "Wrong input", "your input does not conform with guinness's rules")
    If $a[$in[$i]][1] Then Exit MsgBox(0, "Wrong input", "your entered duplicate numbers")
    $a[$in[$i]][1] = Int($in[$i]) + SetRnd(Random(1, 49, 1))
Next
MsgBox(0, "Result", "You entered this " & UBound($in) - 1 & " numbers:" & @CR & @CR & $in1 & @CR & @CR & "of which " & ($a[$in[1]][0] = $a[$in[1]][1]) + ($a[$in[2]][0] = $a[$in[2]][1]) + ($a[$in[3]][0] = $a[$in[3]][1]) + ($a[$in[4]][0] = $a[$in[4]][1]) + ($a[$in[5]][0] = $a[$in[5]][1]) + ($a[$in[6]][0] = $a[$in[6]][1]) + ($a[$in[7]][0] = $a[$in[7]][1]) & " matching to those random generated by PC" & @CR & @CR & $in2)
Func SetRnd($rnd) ; this generates unique random numbers
    If $a[$rnd][0] Then SetRnd(Random(1, 49, 1)) ; iterate if already existent
    If Not $a[$rnd][0] Then $in2 &= $rnd & " "
    $a[$rnd][0] = $rnd
EndFunc   ;==>SetRnd

could be removed 2 other lines of code, but this would result in a (too) long horizzontal line of code ( I do not like)

Edited March 25, 2014 by PincoPanco

[czardas]

At least mine is just about understandable!

 

I think you are trying to lose on purpose: Random(1, 50,1)

[jchd]

Similar to the zero in roulette, which is the only thing that makes the "game" profitable to casinos.

[guinness]

Don't forget the rules 7 whole numbers 1-49, no duplicates in both the user's and computer's choice, all 7 must match.

mikell, 

Nice. Passed my testing.

Melba23,

Numbers out of the range are excepted it seems. Other than that it passed my tests.

PincoPanco,

Seems to pass my tests.

Great everyone.

Edit: Retracted some smiley faces. I have used my quota for the year in this one thread.

Edited March 24, 2014 by guinness

[Melba23]

guinness,

 

Numbers out of the range are excepted it seems

But will never match. i am still working on how to prevent them altogether.

Sorry about the 49/50 mixup - at least the user was told to choose 1-50!!

M23

[guinness]

In my version it reported an input error, win or lose. The win or lose was only if the input was valid.

[czardas]

Here's my final entry - based on the premise that you have exactly the same chance of winning the lottery whether 7 numbers are generated, by the computer, or not. There is a 1 in 432938943360 chance you will hit the jackpot - which amounts to the same thing. In fact only error checking for the input is missing. Can you fix that without adding an extra 2 lines of code?

MsgBox(InputBox("","Enter 7 numbers 1 - 49")*0,"Lottery","You "&StringLeft("did not ",(Random(0,432938,1)&Random(1,943360,1)<>49*48*47*46*45*44*43)*8)&"win")

;

Fixed - Computer generated 12 digit random number was not exactly correct. It should be accurate now.

Edited March 25, 2014 by czardas

[Melba23]

guinness,

The user now cannot enter a value > 49 - still 8 lines:

Do
    ; Get computer generated sequence - use nonnumeric first element so Number returns 0
    $vComputer = "=," & Random(1, 49, 1) & "," & Random(1, 49, 1) & "," & Random(1, 49, 1) & "," & Random(1, 49, 1) & "," & Random(1, 49, 1) & "," & Random(1, 49, 1) & "," & Random(1, 49, 1)
    ; Uncomment to cheat <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    ; ConsoleWrite("Computer: " & $vComputer & @CRLF) ; <<<<<<<<<<<<<<<<<<<<<<
    ; Get user input if no duplicates in computer list
    $sInput = ( (StringRegExp($vComputer, "(?U)([^,]+),(?=(?:[^,]*,)*?\1(?:,|$))")) ? ("") : (StringReplace(InputBox("Enter 7 numbers", "Between 1-49, comma/space delimited"), " ", ",")) )
; Check no duplicates in user list - 7 user numbers are 1-49
Until StringRegExp($sInput, "(?U)([^,]+),(?=(?:[^,]*,)*?\1(?:,|$))") = 0 And StringRegExp($sInput, "^(([1-9]|[1-4][0-9])(,|$)){7}") = 1
; Loop through the computer values
For $sElement in StringSplit($vComputer, ",", 2)
    ; Check for exact match with user input - leading and trailing commas prevent part matches - add number of matches to start of computer string
    If StringInStr("," & $sInput & ",", "," & $sElement & ",") <> 0 Then $vComputer = (Number(Stringleft($vComputer, 1)) + 1) & $vComputer
Next
; Give result
ConsoleWrite( ( (StringLeft($vComputer, 1) = 7) ? ("Won") : ("Lost") ) & " - Computer: " & StringTrimLeft($vComputer, StringInStr($vComputer, ",")) & " - User: " & $sInput & @CRLF)

M23

Edit: Now gives number of matches in result

Edited March 25, 2014 by Melba23

[jdelaney]

Tricky ^^.  Good call, though, czardas.

Edited March 24, 2014 by jdelaney

[mikell]

Last try -- added a little precision to the error checking

Do
  Local $a[] = [(Random (1, 49, 1) &","& Random (1, 49, 1) &","& Random (1, 49, 1) &","& Random (1, 49, 1) &","& Random (1, 49, 1) &","& Random (1, 49, 1) &","& Random (1, 49, 1) ), ((UBound(StringRegExp(StringRegExpReplace($a[0], '\b(\d+)\b(?=.*\b\1\b.*)', ''), '\d+', 3) ) = 7) ? (InputBox("Lottery", "Enter 7 numbers from 1 to 49 separated by a comma", "1,2,3,4,5,6,7", "", 500, 150)) : "#¤$" ), ((($a[1] <> "") ? ((StringRegExp($a[1], '^([1-4]?[0-9],){6}[1-4]?[0-9]$')) ? 9 : (($a[1] <> "#¤$") ? MsgBox(0, "", "please enter a valid sequence") : 0)) : MsgBox(5, "", "want to quit, or retry ?") )), UBound(StringRegExp(StringRegExpReplace($a[0] &","& $a[1], '\b(\d+)\b(?=.*\b\1\b.*)', ''), '\d+', 3) ), (($a[2] = 9) ? (MsgBox(0, "", "You " & (( $a[3] = 7 ) ? "win" : "loose" ) & @CRLF & @CRLF & "Computer choice : " & $a[0] & @CRLF & "Your choice : " & $a[1] & @CRLF & @CRLF & "You found " & 14-$a[3] & " good numbers")) : Sleep(1))]
Until $a[2] = 9 or $a[2] = 2