all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Sorting-algorithms-Quicksort/Standard-ML/sorting-algorithms-quicksort.ml
+++ b/Task/Sorting-algorithms-Quicksort/Standard-ML/sorting-algorithms-quicksort.ml
@ -0,0 +1,7 @@
+fun quicksort [] = []
+  | quicksort (x::xs) =
+    let
+        val (left, right) = List.partition (fn y => y<x) xs
+    in
+        quicksort left @ [x] @ quicksort right
+    end