This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
### Keybase proof | |
I hereby claim: | |
* I am bgruber on github. | |
* I am iheardata (https://keybase.io/iheardata) on keybase. | |
* I have a public key whose fingerprint is C912 3464 37C7 F48D E295 6B0F 8D5F F901 32E2 0303 | |
To claim this, I am signing this object: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns solution.core | |
(:require clojure-csv.core)) | |
(defn read-csv [file] | |
(let [csvd (clojure-csv.core/parse-csv file) | |
parseint #(Integer/parseInt %) | |
intlines (map #(map parseint %) (next csvd))] | |
(map #(vector (first %) (rest %)) intlines))) | |
(def trainset (delay (read-csv (slurp "resources/digitssample.csv")))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defadvice archive-zip-extract | |
(around cygpathify (archive name) activate) | |
"Run the archive filename through cygpath before continuing." | |
(let ((archive (car (process-lines "cygpath" archive)))) | |
ad-do-it)) |