swuecho
7/24/2012 - 8:45 PM

80_easy_anagrams

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")