let rec quicksort l =
match l with
| -> 
|h::t -> quicksort (List.filter ((<) h) t) @ [h] @ (quicksort (List.filter ((>=) h) t))
let l = [8;2;10;5;3;6;12;23;1;2;5;11]
Sunday, February 15, 2009
Quicksort in F# (again)
Here is the quicksort algorithm in F#. Nothing new here, this algorithm can be found on many sites. But I noticed that none of them takes advantage of partial application of (<) and (>=) operators in List.filter.