|
Registriert seit: 26. Mai 2004
3.159 Beiträge
|
AW: Effiziente Erzeugung, nicht gleicher Zufallszahlen
10. Mai 2011, 19:34
Hm, habs nun doch verstanden, wie der Algo funktioniert 
@shmia: Eigentlich reicht es doch aber, bis zu Low(IntArray) + 1 zu laufen?
Delphi-Quellcode:
// Richtig (Fisher-Yates)
for i := High(IntArray) downto Low(IntArray) + 1 do
Swap(i, Random(i+1)+Low(IntArray)));
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
Geändert von s.h.a.r.k (10. Mai 2011 um 20:23 Uhr)
|