80_easy_anagrams
(ns playground.core)
;;http://www.reddit.com/r/dailyprogrammer/comments/x0v3e/7232012_challenge_80_easy_anagrams/
(defn anagrams? [x y]
(and (= (sort x) (sort y))
(not= x y)))
(defn anagrams [x]
(filter #(anagrams? (.toLowerCase x) %) dict))
(def dict (clojure.string/split-lines
(slurp
(java.io.FileReader. "/home/echo/Documents/dailyprogrammer/Anagrams_80.txt"))))
(anagrams "TRIANGLE")