Sorting algorithms/Quicksort: Difference between revisions
Content added Content deleted
Line 942: | Line 942: | ||
| x::xs -> |
| x::xs -> |
||
let ys, zs = List.partition (gt x) xs in |
let ys, zs = List.partition (gt x) xs in |
||
(quicksort gt ys) @ (x :: (quicksort gt zs)) |
|||
let _ = |
let _ = |