Eighteen... - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|115\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> On Topic -> Eighteen...
Mon, 17 Feb 2020, 14:37
Jayenkai	Eighteen... Odd thing.. This week's Foldapuz, I thought "OK, let's make some kind of Number Crossword" 4 digit PINs where all the 4 digits all add up to the same value. 5 of such PINs, with digits 0 to 9 each being represented twice, and the PINs are laid out in a crossword grid.. First task, a routine that finds 5 x 4 digit PINs, where all 4 digits add up to the same result. It spat out a set fairly quickly. And another set. And another.. And another. It's really not as hard/slow as I was expecting, but .. Something unexpected in the results.. (Blitz2D/3D/Plus) Graphics 512,512,0,2 Global grid[100] Global num[20] SetBuffer BackBuffer() FindGrid() Repeat Cls For y=0 To 4 For x=0 To 4 dx=(x+2)16 If x=4 Then dx=dx+16 Text dx,(y+1)32,grid[y10+x] Next Next Text 32,400,"SPACE for another grid" Text 32,420,"ESC to quit" Flip If KeyDown(57) Then FindGrid() Until KeyDown(1) Function FindGrid() q=500 Repeat ; Randomise numbers 0 to 9 twice into a "shuffled bag" For n=0 To 19 num[n]=n Mod 10 Next For n=0 To 19 r=Rand(0,19) t=num[n] num[n]=num[r] num[r]=t Next ; Lay out the PINs n=0 For y=0 To 4 For x=0 To 3 grid[y10+x]=num[n] n=n+1 Next grid[y10+4]=grid[y10+0]+grid[y10+1]+grid[y10+2]+grid[y*10+3] Next q=q+1 If q>500 q=0 Cls Text 32,256,"Seeking Grid "+String(".",Rand(1,10)) Text 32,420,"ESC to quit" Flip EndIf If KeyHit(1) Then End Until grid[4]=grid[14] And grid[4]=grid[24] And grid[4]=grid[34] And grid[4]=grid[44] End Function --v -=-=- ''Load, Next List!''