Initial data commit

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

@@ -0,0 +1,34 @@
+import Data.Char (toLower)
+import Data.List (sortBy)
+import Data.Ord (comparing)
+
+-------------------- CUSTOM COMPARATORS ------------------
+
+lengthThenAZ :: String -> String -> Ordering
+lengthThenAZ = comparing length <> comparing (fmap toLower)
+
+descLengthThenAZ :: String -> String -> Ordering
+descLengthThenAZ =
+  flip (comparing length)
+    <> comparing (fmap toLower)
+
+--------------------------- TEST -------------------------
+main :: IO ()
+main =
+  mapM_
+    putStrLn
+    ( fmap
+        unlines
+        ( [sortBy] <*> [lengthThenAZ, descLengthThenAZ]
+            <*> [ [ "Here",
+                    "are",
+                    "some",
+                    "sample",
+                    "strings",
+                    "to",
+                    "be",
+                    "sorted"
+                  ]
+                ]
+        )
+    )