all tasks

Task/Sort-using-a-custom-comparator/Haskell/sort-using-a-custom-comparator-1.hs

@@ -0,0 +1,9 @@
+import List
+import Char
+
+mycmp s1 s2 = case compare (length s2) (length s1) of
+                 EQ -> compare (map toLower s1) (map toLower s2)
+                 x  -> x
+
+strings = ["Here", "are", "some", "sample", "strings", "to", "be", "sorted"]
+sorted = sortBy mycmp strings

Task/Sort-using-a-custom-comparator/Haskell/sort-using-a-custom-comparator-2.hs

@@ -0,0 +1,3 @@
+import Data.Monoid
+mycmp s1 s2 = mappend (compare (length s2) (length s1))
+                       (compare (map toLower s1) (map toLower s2))