find anagrams by konn (not golf)

import List
findAnagram = filter . isAnagram
isAnagram orig =(==)(sort orig).sort
main = do w <- getLine
          c <- getContents
          putStr$unlines$findAnagram w$lines c

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page