+module Main(main) where
+
import Data.List (last, intersperse, sortBy, intercalate, isInfixOf)
import Data.List.Split (splitOn)
import Data.Char (isLetter, ord, chr)
countedLetters :: String -> [(Char, Int)]
countedLetters name = sortBy sortCLetter $ unsortedCountedLetters name
- where unsortedCountedLetters name = Map.toList $ Map.fromListWith (+) [(c, 1) | c <- filter (isLetter) name]
+ where unsortedCountedLetters name =
+ Map.toList $ Map.fromListWith (+) [(c, 1) | c <- filter (isLetter) name]
sortCLetter :: (Char, Int) -> (Char, Int) -> Ordering
sortCLetter (l1, n1) (l2, n2)