diff --git a/06-code-golf/tf-06.clj b/06-code-golf/tf-06.clj new file mode 100755 index 0000000..6eef452 --- /dev/null +++ b/06-code-golf/tf-06.clj @@ -0,0 +1,9 @@ +":";exec java -cp "$HOME/.m2/repository/org/clojure/clojure/1.5.1/clojure-1.5.1.jar" clojure.main $0 $* + +(doseq [c (take 25 + (sort-by val > + (frequencies + (remove + #(contains? (set (.split (slurp "../stop_words.txt") ",")) %) + (re-seq #"[a-z]{2,}" (.toLowerCase (slurp (first *command-line-args*))))))))] + (println (first c) "-" (nth c 1)))