 (ns hangman.core
   (:require
     [clojure.string  :as str]
+    [clojure.set     :as set]
   ) )
 
 

  (println 
    (str seqName "("  (count seqVals) ") " )
        (take show-info-size (map #(str \" % \") seqVals)) ))

(def all-words   
  "A collection of all words for the hangman game."

                      pair-seq) ]
    result ))

(defn make-guess
  "Generate the next guess char. clue-vec consists of chars or nil, where a char shows
  correctly guessed letters, and nil shows chars not yet guessed.  "
  [clue-vec col-char-freqs used-chars]
  (let [
    all-char-freqs  (apply merge-with + col-char-freqs)
      _ (println "all-char-freqs" all-char-freqs)
    avail-chars     (set/difference (set(keys all-char-freqs)) used-chars)
      _ (println "avail-chars" avail-chars)
    max-avail-char  (apply max-key all-char-freqs avail-chars ) ]
      _ (println "max-avail-char" max-avail-char)
    max-avail-char     
  )
)

(defn run-tests []
  (println "----------------------------------------")
  (println "Tests:")
