Added my clojure code golf, passes tests

This commit is contained in:
Eugenia Gabrielova
2014-01-21 21:11:57 -08:00
parent 0514124aa2
commit 71fe15b79d

11
06-code-golf/tf-06.clj Executable file
View File

@@ -0,0 +1,11 @@
":";exec java -cp "$HOME/.m2/repository/org/clojure/clojure/1.5.1/clojure-1.5.1.jar" clojure.main $0 $*
(require '[clojure.string :as s])
(doseq [c (take 25
(sort-by val >
(frequencies
(remove
#(some (partial = %) (s/split (slurp "../stop_words.txt") #","))
(re-seq #"[a-z]{2,}" (s/lower-case (slurp (first *command-line-args*))))))))]
(printf "%s - %d\n" (first c) (nth c 1)))