1 import System.Directory (getDirectoryContents)
2 import Data.List (sort, isPrefixOf, isSuffixOf)
5 names <- getDirectoryContents "."
6 putStrLn (unlines (sort (filter ok names)))
8 ok name = "getDirContents" `isPrefixOf` name
9 && not ("bak" `isSuffixOf` name)
10 && not ("prof" `isSuffixOf` name)
11 && not ("hp" `isSuffixOf` name)
12 && not ("ps" `isSuffixOf` name)
13 && not ("aux" `isSuffixOf` name)