tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Optional-parameters/OCaml/optional-parameters-1.ocaml
+++ b/Task/Optional-parameters/OCaml/optional-parameters-1.ocaml
@ -0,0 +1,3 @@
+let sort_table ?(ordering = compare) ?(column = 0) ?(reverse = false) table =
+  let cmp x y = ordering (List.nth x column) (List.nth y column) * (if reverse then -1 else 1) in
+    List.sort cmp table