sample clojure code

find_anagrams.cl

(ns anagram
  (:gen-class))

(defn anagrams-for
  "select anagrams from the list of words"
  ([] "nothing")

  ([word words]

    (let [ word-chars (frequencies (for [c (clojure.string/lower-case word)] c))

           anagram-wannabe-map (zipmap (map clojure.string/lower-case words) 
                                       (map (comp frequencies clojure.string/lower-case) words))  

           ; { char frequencies => list of words }
           anagram-wannabe-map-inverted (apply merge-with (comp flatten list) 
                                         (for
                                          [kv (map reverse 
                                                   (seq (zipmap words 
                                                                (map (comp frequencies clojure.string/lower-case) words))))] 
                                          {(first kv) (last kv)}))
          ]


       (into []
         (filter #(not (nil? %))  
           (map #(if (nil? (re-matches (re-pattern (str "(?i)" %)) word)) %) 
             (flatten 
               (distinct
                 (for [anagram-wannabe 
                  (for [a-word words] (anagram-wannabe-map (clojure.string/lower-case a-word)))] 
                   (if (= anagram-wannabe word-chars)
                    (anagram-wannabe-map-inverted anagram-wannabe)
                   )
                 )
               )
             )
           )
         )
       )
     )
  ) 
)


(defn -main
  ([])

  ([& args] 
    (let [args (map clojure.string/lower-case args) 
          word (first args)
          words (dedupe (rest args))
         ]
      (anagrams-for word words)
    )
  )
)