Java迭代代码上的Clojure lazy-seq

Question

我试图从继承的一些迭代Java库代码中创建一个Clojure seq。基本上，Java代码所做的是使用解析器从文件中读取记录，将这些记录发送到处理器，并返回结果的ArrayList。在Java中，这是通过调用parser.readdata()，然后调用parser.getRecord（）获取一条记录，然后将该记录传递给processor.processRecord（）来完成的。对parser.readdata（）的每次调用返回一条记录，如果没有更多记录，则返回null。Java中非常常见的模式。

(defn next-record
  "Get the next record from the parser and process it."
  [parser processor]
  (let [datamap (.readData parser)
        row (.getRecord parser datamap)]
    (if (nil? row)
    nil
    (.processRecord processor row 100))))

(defn datamap-seq
  "Returns a lazy seq of the records using the given parser and processor"
  [parser processor]
  (lazy-seq
    (when-let [records (next-record parser processor)]
      (cons records (datamap-seq parser processor)))))

我可以创建一个解析器和处理器，并执行类似的操作（例如5（datamap-seq parser processor））。正如预期的那样，获取（第一个）seq只实现了一个元素，执行计数实现了所有元素，等等，这就是我希望从一个懒惰的seq中得到的行为。

当然，当有很多记录时，我最终得到一个StackOverflowException。所以我的下一个尝试是使用loop-recur来做同样的事情。

(defn datamap-seq
  "Returns a lazy seq of the records using the given parser and processor"
  [parser processor]
  (lazy-seq
    (loop [records (seq '())]
      (if-let [record (next-record parser processor)]
        (recur (cons record records))
        records))))

现在，以同样的方式使用它，并使用（def results（datamap-seq parser processor））对它进行def deq（datamap-seq parser processor））给出了一个惰性seq，并且没有实现然而，一旦我做了其他任何事情，比如（第一个结果），它就强制实现整个SEQ。

我仔细查看了异常的堆栈跟踪，其中一个Java类抛出了堆栈溢出异常。但只有当我有这样的datamap-seq函数时才会发生这种情况（我上面发布的函数确实有效）：

(defn datamap-seq
  "Returns a lazy seq of the records using the given parser and processor"
  [parser processor]
  (lazy-seq
    (when-let [records (next-record parser processor)]
      (cons records (remove empty? (datamap-seq parser processor))))))

我真的不明白为什么删除会导致问题，但当我从这个功能中删除它时，一切都正常（我现在正在其他地方删除空列表）。

Answer 1

循环/重复循环在循环表达式中循环，直到递归用完。在它周围添加一个lazy-seq并不能阻止这一点。

您第一次尝试使用lazy-seq/cons应该已经按照您的要求工作，不会出现堆栈溢出。我现在还不能确定它的问题是什么，尽管它可能在代码的java部分。