You'll needData.Char.toLower :: Char -> Char,Prelude.map :: (a -> b) -> [a] -> [b],Data.List.sortBy :: (Ord a) => (a -> a -> Ordering) -> [a] -> [a], andData.Ord.comparing :: (Ord a) => (b -> a) -> b -> b -> Ordering:Code:import Data.List (sortBy) import Data.Char (toLower) import Data.Ord (comparing) orderWords = unwords . sortBy (comparing $ map toLower) . words



Reply With Quote



Bookmarks