Lotto Number

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|723\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Variables

Hotshot	Created : 09 April 2015 System : Windows Language : Blitz Max Lotto Number
Shortest Lotto Number SeedRnd MilliSecs() For i=1 To 6 j=Rnd(49) If j=0 Then j=Rnd(49) Print j Next WaitKey --v

Comments
Thursday, 09 April 2015, 12:46
Jayenkai	You also need to check there's no duplicates along the way, too.
Thursday, 09 April 2015, 12:52
Hotshot	no duplicates along the way. How would I do that? It seem would have too many IF Commands for all numbers to stop being duplicates again unless if I was using Arrays to make things easier like IF J[ i ]=j then j[ i ]=Rnd(49)
Thursday, 09 April 2015, 13:14
Jayenkai	Apologies. I've typed this on my ipad, so it might not work properly! SeedRnd MilliSecs() Dim Old(10) ; Array for storing old numbers For i=1 To 6 Repeat Allow=1. ; Allow! j=Rnd(48)+1 For k=1 to i-1 ; Test against old numbers If j=Old(k) then Allow=0. ; Disallow if duplicate Next Until Allow=1. ; if we disallow it, it'll loop. Print j Next WaitKey --v
Thursday, 09 April 2015, 14:45
Hotshot	That is interesting code to learn from. One things I have notice is you put Dim Old(10) Why 10 Array for storing old numbers?
Thursday, 09 April 2015, 15:14
Jayenkai	I always overscale my arrays just a bit, to avoid odd quirky overflow values, but also to allow you to tweak it in the future. Eg, you might want to include a bonus ball, or something like that.

Comments