rendezvous with cassidoo challenge: 24.11.03

group_anagrams.clj

(ns group-anagrams
  (:require [clojure.test :refer [deftest is]]))

(defn group-anagrams [words]
  (vals (group-by set words)))

(deftest group-anagrams-test
  (is (= (group-anagrams ["eat" "tea" "tan" "ate" "nat" "bat"])
         [["eat" "tea" "ate"] ["tan" "nat"] ["bat"]]))
  (is (= (group-anagrams ["vote" "please"])
         [["vote"] ["please"]]))
  (is (= (group-anagrams ["debitcard" "badcredit"])
         [["debitcard" "badcredit"]])))