Skip to content

Instantly share code, notes, and snippets.

@BUNotesAI

BUNotesAI/00 [clojure实现多行文本取第一个单词合并去重].md

Last active April 11, 2018 05:39
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save BUNotesAI/e1308b85b060271ce490c75a2e802f08 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save BUNotesAI/e1308b85b060271ce490c75a2e802f08 to your computer and use it in GitHub Desktop.
Download ZIP
多个文件取第一个单词去重后合并
Raw
multiple_files_merge_words.clj
(ns alexcoding.sandbox.appendnumforfile)
(require '[clojure.string :as str])
(def allwords (atom []))
;; 读取文件到allwords里
(with-open [r (clojure.java.io/reader "/tmp/5.txt")]
(doseq [line (line-seq r)]
(swap! allwords conj (str/join "" (take 1 (str/split line #"\t"))))))
(println (count @allwords))
;; 合并到output
(with-open [w (clojure.java.io/writer "/tmp/output.txt" :append true)]
(doseq [line @allwords]
(.write w line)
(.newLine w)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment