#light
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]
quicksort l
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.
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment