重新實現Clojure的懶惰SEQ

Question

我試圖重新實現Clojures lazyseqs作爲一個學習鍛鍊，我想弄清楚什麼是在LazySeq.java回事，

https://github.com/richhickey/clojure/blob/20090320/src/jvm/clojure/lang/LazySeq.java

這個分支不設有大塊的行爲，所以我的想法是，它是假設每次首次調用時調用fn，但我不知道什麼seq調用？更具體地以下行，

s = RT.seq(fn.invoke()); 

Answer 1

的lazy-seq宏的主體放入一個函數。當使用身體產生的序列時，它只是調用該函數來執行身體。你可以 - 或多或少 - 通過以下重新實現lazy-seq：

(defn simple-lazy-seq* 
    [seq-producing-fn] 
    (reify 
    clojure.lang.Sequential 
    clojure.lang.Seqable 
    (seq [this] (seq (seq-producing-fn))))) 

(defmacro simple-lazy-seq 
    [& body] 
    `(simple-lazy-seq* (fn [] ~@body))) 

從核心的lazy-seq還提供了ISeq接口，但這不是絕對必要的。

編輯：在純Java中做事情。

static Seqable lazy_seq(IFn seq_generating_fn) { 
    return new Seqable() { 
     ISeq seq() { 
      return RT.seq(seq_generating_fn.invoke()); 
     } 
    } 
} 

YourClass.lazy_seq(new IFn() { 
    Object invoke() { 
     return thing.returning_the_seq(); 
    } 
}); 

我不知道我的語法細節是否正確，但它應該很接近。如你所見，這裏有一些限制。例如。 thing必須是final IIRC。但我在Java中並不那麼流利。