Haskell Quiz/Count and Say/Solution Dolio
From HaskellWiki
While reading the description for this quiz, I thought it was a perfect problem to make use of the handy clusterBy function Tom Moertel recently discussed on his blog. So, I whipped up this solution to see how it'd work.
module Main (main, say, search) where import Data.Char import Data.List import Data.Maybe import qualified Data.Map as M import Control.Arrow import Control.Monad import System.Environment clusterBy :: Ord b => (a -> b) -> [a] -> [[a]] clusterBy p = M.elems . M.map reverse . M.fromListWith (++) . map (p &&& return) cluster :: Ord a => [a] -> [[a]] cluster = clusterBy id speak :: Int -> String speak 1 = "ONE" speak 2 = "TWO" speak 3 = "THREE" speak 4 = "FOUR" speak 5 = "FIVE" speak 6 = "SIX" speak 7 = "SEVEN" speak 8 = "EIGHT" speak 9 = "NINE" speak 10 = "TEN" speak 11 = "ELEVEN" speak 12 = "TWELVE" speak 13 = "THIRTEEN" speak 15 = "FIFTEEN" speak 18 = "EIGHTEEN" speak 20 = "TWENTY" speak 30 = "THIRTY" speak 40 = "FORTY" speak 50 = "FIFTY" speak 60 = "SIXTY" speak 70 = "SEVENTY" speak 80 = "EIGHTY" speak 90 = "NINETY" speak n | n < 20 = speak (n - 10) ++ "TEEN" | n < 100 = speak (n - m) ++ speak m | otherwise = error "Unanticipated number." where m = n `mod` 10 say :: String -> String say = intercalate " " . map (\c -> speak (length c) ++ " " ++ take 1 c) . cluster . filter isAlpha search :: String -> Int search = (1+) . fromJust . search' [] where search' l s = elemIndex s l `mplus` search' (s:l) (say s) main = print . search . map toUpper . head =<< getArgs
