gistfile1.txt

(ns proj1)
(def letter-count (atom 0))
(def number-count (atom 0))
(def whitespace-count (atom 0))

(defn count-everything []
  (map
    #(cond
      (Character/isDigit %) (swap! number-count inc)
      (Character/isLetter %) (swap! letter-count inc)
      (Character/isWhitespace %) (swap! whitespace-count inc))
    (slurp "test.txt")))

(defn -main []
  (println "Decimal Values: ")
  (map #(print-str (Character/getNumericValue %)) (slurp "test.txt"))
  (println)

  (count-everything)
  (println "Letter count: " @letter-count)
  (println "Number count: " @number-count)
  (println "Whitespace count: " @whitespace-count))