qsort for ocaml

其实跟scheme很类似的表操作，实现起来也比较容易。

let rec qsort cmp lst =
     match lst with
     | [] -> []
     | h::r ->
             let less = List.filter (fun i -> (cmp i h) < 0) r in
             let great = List.filter (fun i -> not ((cmp i h) < 0)) r in
             (qsort cmp less) @ ( h::(qsort cmp great)) ;;

这里使用了List.filter来完成我们的工作，简化代码的编写。