Anagram-kata

anagram.clj

(ns ohai
  (:use clojure.test))

(def words
  '("foo"
    "rab"
    "rba"))

(with-test
  (defn anagram? [a b]
    (= (sort a) (sort b)))

  (is (anagram? "foo" "oof"))
  (is (anagram? "bar" "rba"))
  (is (false? (anagram? "foo" "bar"))))

(with-test
  (defn anagrams [word]
    (filter #(anagram? % word) words))
  
  (is (= () (anagrams "blerk")))
  (is (= '("foo") (anagrams "foo")))
  (is (= '("foo") (anagrams "oof")))
  (is (= '("rab" "rba") (anagrams "bar")))
)