wordscapes.hs

module Main (
  main
)
where

import System.Environment
import Data.List
import Data.Char

wordscape rubric word = contained
  where
    word' = sort word
    rubric' = sort rubric
    contained = word' `isSubsequenceOf` rubric'

main = do
  rubric <- fmap head getArgs
  input <- readFile "/usr/share/dict/words"
  let ls = map (map toLower) $ lines input
  mapM_ putStrLn $ filter (wordscape rubric) ls