all tasks

Task/Sort-using-a-custom-comparator/Standard-ML/sort-using-a-custom-comparator-1.ml

@@ -0,0 +1,5 @@
+fun mygt (s1, s2) =
+  if size s1 <> size s2 then
+    size s2 > size s1
+  else
+    String.map Char.toLower s1 > String.map Char.toLower s2

Task/Sort-using-a-custom-comparator/Standard-ML/sort-using-a-custom-comparator-2.ml

@@ -0,0 +1,6 @@
+- val strings = ["Here", "are", "some", "sample", "strings", "to", "be", "sorted"];
+val strings = ["Here","are","some","sample","strings","to","be","sorted"]
+  : string list
+- ListMergeSort.sort mygt strings;
+val it = ["strings","sample","sorted","Here","some","are","be","to"]
+  : string list

Task/Sort-using-a-custom-comparator/Standard-ML/sort-using-a-custom-comparator-3.ml

@@ -0,0 +1,5 @@
+fun mycmp (s1, s2) =
+  if size s1 <> size s2 then
+    Int.compare (size s2, size s1)
+  else
+    String.compare (String.map Char.toLower s1, String.map Char.toLower s2)

Task/Sort-using-a-custom-comparator/Standard-ML/sort-using-a-custom-comparator-4.ml

@@ -0,0 +1,8 @@
+- val strings = Array.fromList ["Here", "are", "some", "sample", "strings", "to", "be", "sorted"];
+val strings = [|"Here","are","some","sample","strings","to","be","sorted"|]
+  : string array
+- ArrayQSort.sort mycmp strings;
+val it = () : unit
+- strings;
+val it = [|"strings","sample","sorted","Here","some","are","be","to"|]
+  : string array