Merge pull request #20 from bravelittlescientist/master

Clojure Code Golf
2014-01-22 20:56:13 -08:00
parent 0514124aa2 6bbf023586
commit ed25b5a778
1 changed files with 9 additions and 0 deletions
--- a/06-code-golf/tf-06.clj
+++ 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)))