如何将 java Iterator-like 对象转换为 clojure 序列

Question

我正在使用 Sesame 库通过内存中的三元组存储运行 SPARQL 查询。

我正在使用 Clojure 来实现这一目标。

查询结果是一个类似自定义迭代器的 [1] 对象，因此 clojure seq 无法立即对其进行处理。

将自定义 java Iterator 类对象转换为 clojure 序列的最优雅的方法是什么？

我想到的最明显和愚蠢的想法是循环它并构建一个 clojure 向量，但我确信有更优雅的方法来解决这个问题。

[1] http://www.openrdf.org/doc/sesame2/api /info/aduna/iteration/Iteration.html

Answer 1

测试版本：

(defn iteration->seq [iteration]
 (seq
  (reify java.lang.Iterable 
      (iterator [this] 
         (reify java.util.Iterator
           (hasNext [this] (.hasNext iteration))
           (next [this] (.next iteration))
           (remove [this] (.remove iteration)))))))

Answer 2

将类似迭代器的对象包装在实际实现 Iterator 接口的对象中怎么样？类似以下内容（未经测试）：

(defn iteration-seq [iteration]
  (iterator-seq
   (reify java.util.Iterator
     (hasNext [this] (.hasNext iteration))
     (next [this] (.next iteration))
     (remove [this] (.remove iteration)))))

据我所知，Iteration 接口相对于标准 Iterator 的唯一优势（如果你想这样称呼它的话）接口的优点是它允许声明受检查的异常，而 Clojure 中无论如何都不会使用这些异常。

[更新：更正了代码以使用 iterator-seq 而不是 seq，正如@amalloy 在另一个答案的评论中所建议的那样。]

Answer 3

为什么不尝试 clojure.core/iterator-seq 呢？

user=> (doc iterator-seq)
-------------------------
clojure.core/iterator-seq
([iter])
  Returns a seq on a java.util.Iterator. Note that most collections
  providing iterators implement Iterable and thus support seq directly.

正如您在上面的文档字符串中看到的，您甚至可能不需要显式使用 iterator-seq 。您是否刚刚尝试将 Java 迭代器视为 REPL 中的序列？

Answer 4

java Iterable 和 Iterator 的纯函数式可迭代到惰性序列代码

(defn iter-seq
  ([iterable] 
    (iter-seq iterable (.iterator iterable)))
  ([iterable i] 
    (lazy-seq 
      (when (.hasNext i)
        (cons (.next i) (iter-seq iterable i))))))

对于自定义迭代器，替换 .iterator、.hasNext 和 .next 调用。

优点是它是纯函数式的，因为它采用 iterable 作为参数。其他发布的解决方案采用可变的迭代器参数，因此函数可能会根据内部迭代器状态返回不同的序列，这违反了 引用透明度。
该函数还夸大了它的惰性。