sortiere

Quicksort

funktion quicksort(links, rechts)
..falls links < rechts dann
....teiler := teile(links, rechts)
....quicksort(links, teiler-1)
....quicksort(teiler+1, rechts)
..ende
ende

funktion teile(links, rechts)
..i := links
..j := rechts - 1
..pivot := daten[rechts]
..wiederhole
....wiederhole solange daten[i] ≤ pivot und i < rechts
......i := i + 1
....ende
....wiederhole solange daten[j] ≥ pivot und j > links
......j := j - 1
....ende
....falls i < j dann
......tausche daten[i] mit daten[j]
....ende
..solange i < j
..falls daten[i] > pivot dann
....tausche daten[i] mit daten[rechts]
..ende
..antworte i
ende