Forum: Object-Pascal / Delphi-Language
Delphi
by Khabarakh,
1. Apr 2006
Permutationen werden zwar ein 0..48-Array benötigen, aber die Warsrcheinlichkeiten sollten doch die gleichen wie in deinem Code sein: 1/49, 1/48, 1/47, ...
Soll heißen, ich fülle das Array, erzeuge eine zufällige Permutation und betrachte die ersten n Elemente als Ergebnis.
@Armageddon: Du erinnerst mich an axelf98 aus Hagens verlinktem Thread...
Forum: Object-Pascal / Delphi-Language
Delphi
by Khabarakh,
1. Apr 2006
Bei 7 aus 49 noch kein wirkliches Problem, aber sobald sich die Anzahl der gezogenen Elemente vergrößert, führt die Random-Try-And-Error-Taktik immer mehr zur Endlosschleife hin. Permutationen würden sich dann eher anbieten, die bleiben immer linear.
@gfjs: Wenn du nur auf Ungleichheit zu 0 prüfst, kannst du gleich ein Boolean-Array verwenden.