convert-all-cps.clj

(def cps (map (fn[[a x]] (.displayName x)) (java.nio.charset.Charset/availableCharsets)))
(def s (slurp "test.txt"))

(time (with-open [w (io/writer "all-codes1")]
        (doseq [f cps
                t cps]
          (try
            (.write w (str f "->" t))
            (.write w (String. (.getBytes s f) t))
            (.write w "\n\n")
            (catch Throwable e)))))