finished, I think. Still have to seperate out the training and testing samples though...

src/poalses/jonathan/dialect/dialect_nlp.clj

@@ -113,12 +113,7 @@
   (let [filedata (clojure.edn/read-string (slurp filename))
         key-results (map detect-sample-dialect (keys filedata))
         expected-results (map keyword (vals filedata))]
-    (println filedata)
-    (println key-results)
-    (println expected-results)
     (let [result-comparison (map zero? (map compare key-results expected-results))]
-      (println (interleave (keys filedata) result-comparison))
-      (println (zipmap expected-results result-comparison))
       (println (str (count (filter true? result-comparison)) "/" (count result-comparison) " correct.")))))
 
 

src/poalses/jonathan/dialect/main.clj

@@ -14,7 +14,7 @@
 (def command-line-options
   "Command line options parsing rules."
    [["-l" "--log-level LEVEL" (str "Logging level " (seq log-levels))
-     :default :info
+     :default :error
      :parse-fn #(keyword (string/join (rest %)))
      :validate [#(contains? log-levels %)
                 (str "Must be one of: " (seq log-levels))]]