clojure - 使用doseq读取文件，直到Clojure中的特定行

在其他语言中，这通常是微不足道的，但是我在Clojure中找不到这样的示例。

我可以使用以下命令打印整个文件:

(with-open [rdr (io/reader "file")]
          (doseq [line (line-seq rdr) :while (< count(line) 10)]
            (println line)))

但是，如何使它停止在第5行？

谢谢。

最佳答案

您可以尝试以下方法:

(println
 (with-open [rdr (clojure.java.io/reader "file")]
   (let [ls (line-seq rdr)]
     (doall (take 5 ls)))))

这将打印指定文件的前5行。

如果需要跳过一些不满足条件的行，则可以添加filter。以下代码将打印长度小于10的前五行。

(println
 (with-open [rdr (clojure.java.io/reader "file")]
   (let [ls (line-seq rdr)]
     (->> ls
          (filter #(< (count %) 10))
          (take 5)
          (doall)))))

由于filter和take返回延迟序列，因此应在with-open形式内实现。在with-open形式之外，该序列无法实现并导致异常。
println函数也可以使序列实现，您可以像这样修改代码:

(with-open [rdr (clojure.java.io/reader "data/base_exp.txt")]
  (let [ls (line-seq rdr)]
    (->> ls
         (filter #(> (count %) 10))
         (take 5)
         (println))))