Name: Anonymous 2009-10-14 0:22
i just wanna be like him
:)
:)
partition is stable, so:import List
quicksort (p1': p2': l) =
quicksort ltp1 ++ p1: quicksort gep1_lep2 ++ p2: quicksort gtp2
where
(p1, p2) = if p1' > p2' then (p2', p1') else (p1', p2')
(ltp1, gep1) = partition (< p1) l
(gep1_lep2, gtp2) = partition (<=p2) gep1
quicksort l = l