Initial data commit

Task/Sort-using-a-custom-comparator/Maple/sort-using-a-custom-comparator.maple

@@ -0,0 +1,15 @@
+Compare_fn:= proc(s1, s2)
+	local len1, len2;
+	len1 := StringTools:-Length(s1);
+	len2 := StringTools:-Length(s2);
+	if (len1 > len2) then
+		return true;
+	elif (len1 < len2) then
+		return false;
+	else # ascending lexicographic order for strings of equal length / case insensitive
+		StringTools:-CompareCI(s1, s2);
+	end if;
+end proc:
+
+L := ["Here", "are", "some", "sample", "strings", "to", "be", "sorted", "Tooo"];
+sort(L, Compare_fn);