;10000000000000000 Unreelle Möglichkeiten

Graphics 800,600,0,2
Dim Unique$(22,1)
Dim SUnique$(22,1)
Dim Numbers(16,10)
Global MglString$ = ""

Restore Unique
For N = 1 To 22
	Read Unique(N,0), Unique(N,1)
Next

;Dies ist ungefähr wie Brute Force, nur das wir Nummern an plätzen ausschließen.
;Sortieren wir erstmal das Array nach "Correct"
For A = 1 To 22
	Local LowestU$ = "",LowestC = 65535, E
	For B = 1 To 22
		If Unique(B,1) < LowestC
			LowestU = Unique(B,0)
			LowestC = Unique(B,1)
			E = B
		EndIf
	Next
	SUnique(A,0) = LowestU
	SUnique(A,1) = LowestC
	Unique(E,0) = ""
	Unique(E,1) = 65536	;Den jetzt sortierten Eintrag ignorieren
	Print RSet(A,2)+". "+SUnique(A,0) + "  ("+SUnique(A,1) + " Richtige)"
Next

Print "Taste zum fortfahren drücken"
WaitKey

;Durch die Uniques die "0" "Correct" haben, kann man schonmal nummern ausschließen
Global MglStart = 1
Print "Setze 'unmögliche' Zahlen fest"
For A = 1 To 22
	If SUnique(A,1) = 0
		For Pos = 1 To 16
			Local C$ = Mid(SUnique(A,0),Pos,1)
			Numbers(Pos,Int(C$)) = True		;True = False in dem fall
		Next
	Else
		MglStart = A
		Exit	;Wir brauchen hier nicht alle durchgehen
	EndIf
Next

Local TMgl# = 0
For A = 1 To 16
	Local mgl = 10
	For B = 0 To 9
		mgl = mgl - Numbers(A,B)
	Next
	If TMgl = 0
		TMgl = mgl 
	Else
		TMgl = TMgl * mgl
	EndIf
Next
Print "Möglichkeiten verbleibend: "+TMgl

Print "Taste zum fortfahren drücken"
WaitKey

;Wird noch geändert bzw weitere Methode eingefügt
For A = 1 To 16
	Print "Suche Meistgenutze Zahl an Stelle "+A
	Local Num[10]
	For B = MglStart To 22
		C = Int(Mid(SUnique(B,0),A,1))
		Num[C] = Num[C] + 1
	Next
	Local HighC = 0, HighN = -1
	For B = 0 To 9
		If Num[B] > HighC And Numbers(A,B) = False
			HighC = Num[B]
			HighN = B
		EndIf
	Next
	Print "Fand: "+HighN
	MglString = MglString + HighN
Next
Print "Errechnete: "+MglString
WaitKey()

.Unique
Data "5616185650518293",2
Data "3847439647293047",1
Data "5855462940810587",3
Data "9742855507068353",3
Data "3174248439465858",1
Data "4513559094146117",2
Data "7890971548908067",3
Data "4296849643607543",3
Data "8157356344118483",1
Data "2615250744386899",2
Data "8690095851526254",3
Data "6375711915077050",1
Data "6913859173121360",1
Data "6442889055042768",2
Data "2321386104303845",0
Data "2326509471271448",2
Data "5251583379644322",2
Data "1748270476758276",3
Data "4895722652190306",1
Data "3041631117224635",3
Data "1841236454324589",3
Data "2659862637316867",2