Gerador de Anagramas

ana.hs

import Data.Char
import Data.List

ana :: String -> [String] -> [String]
ana word dict = let lw = length word
                    ps = (nub . permutations $ word)
                 in ps `intersect` filter (\w -> (length w) == lw) dict

main = do
  putStrLn "Digite uma palavra: "
  word <- map toLower <$> getLine

  dict <- words . map toLower <$> readFile "/usr/share/dict/brazilian"
  putStrLn (show . ana word $ dict)