 (ns error-codes.files
-  (:require [clojure.java.io :refer [file]]
+  (:require [clojure.java.io :as io :refer [file]]
+            [clojure.core.reducers :as r]
             [clojure.set :as set])
   (:use [clojure.core.matrix]))
 



(edits "a" "b")

     (generate-correction-statistics base-directory-unverbessert base-directory-verbessert [strip-newline-errors strip-start-and-end-errors]))
  ([base-directory-unverbessert base-directory-verbessert filters] 
     (let [gts (get-files-sorted (file base-directory-unverbessert "ground-truth/"))
           gt-text (map slurp gts)
           ocr-res-unverb (map slurp (get-files-sorted (file base-directory-unverbessert "ocr-results/")))
           ocr-res-verb (map slurp (get-files-sorted (file base-directory-verbessert "ocr-results/")))
           error-codes-verb (map (comp read-string slurp) (get-files-sorted (file base-directory-verbessert "edits/")))
