Clojure 中的可關閉惰性序列

Question

我正在嘗試創建一個也可以關閉的惰性序列。 在 Clojure 中最干凈的方法是什么？ 預期用途（但這只是一個示例，我可以想到可關閉惰性序列的更多用法）：

(with-open [lines (file-lines-seq file)]
   (consume (map do-stuff-to-line lines))) 

在這種情況下，這相當於：

(with-open [reader io/reader file]
    (consume (map do-stuff-to-line (line-seq file))))

Answer 1

設法通過這段精彩的代碼獲得預期的用途：

(defn file-lines-seq [file]
  (let [reader (clojure.java.io/reader file)
        lines-seq (line-seq reader)]
    (reify
      Closeable
      (close [this] (.close reader))
      
      ISeq
      (first [this] (.first lines-seq))
      (next [this] (.next lines-seq))
      (more [this] (.more lines-seq))
      (cons [this var1] (.cons lines-seq var1))
      (count [this] (.count lines-seq))
      (empty [this] (.empty lines-seq))
      (equiv [this var1] (.equiv lines-seq var1))
      (seq [this] (.seq lines-seq))
)))

如果有更丑陋的方法可以做到這一點，請告訴我。