Initial data commit

Task/Sort-using-a-custom-comparator/MAXScript/sort-using-a-custom-comparator.max

@@ -0,0 +1,23 @@
+fn myCmp str1 str2 =
+(
+    case of
+    (
+        (str1.count < str2.count):  1
+        (str1.count > str2.count): -1
+        default:(
+                -- String compare is case sensitive, name compare isn't. Hence...
+                str1 = str1 as name
+                str2 = str2 as name
+                case of
+                (
+                    (str1 > str2):  1
+                    (str1 < str2): -1
+                    default:        0
+                )
+                )
+    )
+)	
+
+strList = #("Here", "are", "some", "sample", "strings", "to", "be", "sorted")
+qSort strList myCmp
+print strList