4. Prozedurales Programmieren

Quicksort
Algorithmische Grundidee:
• Wähle einen beliebigen Datensatz mit Schlüssel k
aus, das sogenannte Pivotelement.
• Teile die Liste in zwei Teile:
- 1. Teil enthält alle Datensätze mit Schlüsseln < k
- 2. Teil enthält die Datensätze mit Schlüsseln ≥ k
• Wende quicksort rekursiv auf die Teillisten an.
• Hänge die resultierenden Listen und das Pivotelement
zusammen.
Funktionale Fassung:
fun qsort [] = nil
| qsort ((pk,ps)::rest) =
let val (below,above) = split pk rest in
end
qsort below @[(pk,ps)]@ qsort above
and split p [] = ([],[])
| split p ((xk,xs)::xr) =
let val (below, above) = split p xr in
end
if xk < p then ((xk,xs)::below,above)
else (below,(xk,xs)::above)
04.12.08 © A. Poetzsch-Heffter, TU Kaiserslautern
134