10 lines
425 B
Clojure
Executable File
10 lines
425 B
Clojure
Executable File
":";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*))))))))]
|
|
(printf "%s - %d\n" (first c) (nth c 1)))
|