Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.166 Beiträge
 
Delphi 12 Athens
 
#8

AW: "Pezision" die zweite

  Alt 10. Dez 2011, 18:25
Meine Vermutung in "Pezision" (die erste), daß für die Berechnung die integren Delphidatentypen nicht ausreichen, ziehe ich zurück. Ich las nicht aufmerksam genug, hatte die Quersumme vor Augen.
Also mit der Quersumme hattest du vollkommen recht.
Praktisch ist nur, daß man die jeweils kleinsten Werde der Behaarlichkeiten der Quersummen quasi direkt ausrechnen kann.

Zitat:
jeweils kleinste Zahl für die Behaarlichkeiten der iterierten Quersumme

00:00:02:312 > Beharrlichkeitsliste 1 = 10 > 1
00:00:01:844 > Beharrlichkeitsliste 2 = 19 > 10 1
00:00:02:795 > Beharrlichkeitsliste 3 = 199 > 19 10 1
Taschenrechner > Beharrlichkeitsliste 4 = 19999999999999999999999 (1+9^22) > 199 19 10 1
geschätzt > Beharrlichkeitsliste 5 = 199... und 2222222222222222222222 weitere Neunen (1+9^2222222222222222222222) > 19999999999999999999999 199 19 10 1
2222222222222222222222

00:02:48:564 > Aktuell 999999999999999999 > 162 9
Im Anhang mein völlig unoptimierter Quellcode, welcher mit einem Int64 alle möglichen Zahlen von 1 bis 999999999999999999 prüft und jeweils die kleinsten Zahlen ausgibt.
Der Code läßt sich auch auf die Quersumme umstellen, aber weiter als bis 3 kommt er dort nicht.



Darf ich, der nichtmal Mathe studiert hat, nun eigentlich stolz sein, daß ich alle 11 "Pezision"-Dinger, im Bereich von 0 bis 999999999999999999, mit einem suboptimalem Pascalcode, in nichtmal 30 Sekunden via Bruteforce finde?
Angehängte Dateien
Dateityp: zip Project1.zip (2,4 KB, 5x aufgerufen)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (10. Dez 2011 um 18:34 Uhr)
  Mit Zitat antworten Zitat