Clojure lazy-eval內部應用

Question

我試圖逐行閱讀文件並將新字符串連接到每行的末尾。爲了測試我已經做到了這一點：

(defn read-file 
[filename] 
(with-open [rdr (clojure.java.io/reader filename)] 
    (doall (line-seq rdr)))) 

(apply str ["asdfasdf" (doall (take 1 (read-file filename)))]) 

如果我只是在一個REPL評估(take 1 (read-file filename))，我得到的文件的第一行。但是，當我嘗試評估我上面做的時，我得到了"asdfasdfclojure.lang.LazySeq@4be5d1db"。

任何人都可以解釋如何強制評估take讓它不返回懶惰序列？

Answer 1

的take功能是通過設計懶惰，所以你可能要實現你想要的值，使用first，next，或nth，或者對整個序列與功能，如apply，reduce，vec，或into操作。

在你的情況下，它看起來像你正在嘗試做以下：

(apply str ["asdfasdf" (apply str (take 1 (read-file filename)))]) 

或者：

(str "asdfasdf" (first (read-file filename))) 

你也可以體會到使用doall整個lazyseq。請記住，實現的懶惰seq仍然是一個seq。

(realized? (take 1 (read-file filename))) ;; => false 
(type (take 1 (read-file filename))) ;; => clojure.lang.LazySeq 

(realized? (doall (take 1 (read-file filename)))) ;; => true 
(type (doall (take 1 (read-file filename)))) ;; => clojure.lang.LazySeq 

一個更好的選擇是從得到的序列懶洋洋地運用你的轉換，使用類似map，並選擇您想要的值。 （就像流處理。）

(first (map #(str "prefix" % "suffix") 
      (read-file filename))) 

注：map是懶惰的，所以它會返回一個未實現的LazySeq。