maxanagrams.clj

; find the combinations of letters which have the most anagrams
; word list is from 
; https://raw.githubusercontent.com/dolph/dictionary/master/enable1.txt  
(ns anagrams-sort
  (:require [clojure.string :as cs]) )
(def words
  (let [ home     (System/getenv "HOME")
         filename (str home "/Downloads/enable1.txt")
         words    (->> filename slurp cs/split-lines)
        ] words )
)
(defn negate [x] (- 0 x))
(def sortwords
  (->> (reduce (fn [acc word]
               (update acc (apply str (sort word)) conj word))
               {}
               words)
       (sort-by #(-> % second count negate)))
  )
(take 10 sortwords)