From 71fe15b79dde292849c45a1fbad0b5e8d8b8b65b Mon Sep 17 00:00:00 2001 From: Eugenia Gabrielova Date: Tue, 21 Jan 2014 21:11:57 -0800 Subject: [PATCH 1/3] Added my clojure code golf, passes tests --- 06-code-golf/tf-06.clj | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100755 06-code-golf/tf-06.clj diff --git a/06-code-golf/tf-06.clj b/06-code-golf/tf-06.clj new file mode 100755 index 0000000..e218cfb --- /dev/null +++ b/06-code-golf/tf-06.clj @@ -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))) From cfa820c3945ae1053bff829890035b6d1c3dbf81 Mon Sep 17 00:00:00 2001 From: Eugenia Gabrielova Date: Tue, 21 Jan 2014 21:48:26 -0800 Subject: [PATCH 2/3] Adds Java interop and changes remove to checking set --- 06-code-golf/tf-06.clj | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/06-code-golf/tf-06.clj b/06-code-golf/tf-06.clj index e218cfb..c6fcd1c 100755 --- a/06-code-golf/tf-06.clj +++ b/06-code-golf/tf-06.clj @@ -1,11 +1,9 @@ ":";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*))))))))] + #(contains? (set (.split (slurp "../stop_words.txt") ",")) %) + (re-seq #"[a-z]{2,}" (.toLowerCase (slurp (first *command-line-args*))))))))] (printf "%s - %d\n" (first c) (nth c 1))) From 6bbf02358610bac396259193a6e45acf7de3a4f2 Mon Sep 17 00:00:00 2001 From: Eugenia Gabrielova Date: Tue, 21 Jan 2014 22:04:36 -0800 Subject: [PATCH 3/3] Changes print formatting statement, removing some characters --- 06-code-golf/tf-06.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/06-code-golf/tf-06.clj b/06-code-golf/tf-06.clj index c6fcd1c..6eef452 100755 --- a/06-code-golf/tf-06.clj +++ b/06-code-golf/tf-06.clj @@ -6,4 +6,4 @@ (remove #(contains? (set (.split (slurp "../stop_words.txt") ",")) %) (re-seq #"[a-z]{2,}" (.toLowerCase (slurp (first *command-line-args*))))))))] - (printf "%s - %d\n" (first c) (nth c 1))) + (println (first c) "-" (nth c 1)))