clojure - 在 Clojure 中使序列产生副作用

Question

我想做的是如下。

(def mystream (stream (range 100)))

(take 3 mystream)
;=> (0 1 2)

(take 3 mystream)
;=> (3 4 5)

(first (drop 1 mystream))
;=> 7

流函数使序列像 io 流一样产生副作用。
我认为这几乎是不可能的。这是我的尝试。

(defprotocol Stream (first! [this]))

(defn stream [lst]
  (let [alst (atom lst)]
    (reify Stream
       (first! [this]
         (let [[fs] @alst]
           (swap! alst rest)
           fs)))))

(let [mystream (stream (iterate inc 1))]
  (map #(if (string? %) (first! mystream) %)
       [:a "e" "b" :c "i" :f]))
;=> (:a 1 2 :c 3 :f)

不幸的是，这种方法需要实现我将使用的所有功能。

Answer 1

从您对 Maurits 的后续评论来看，您不需要突变，而只需要发出一个新序列，并将元素放在正确的位置。

例如:

(defn replace-when [pred coll replacements]  (lazy-seq    (when (seq coll)      (if (seq replacements)        (if (pred (first coll))          (cons (first replacements)                 (replace-when pred (rest coll) (rest replacements)))          (cons (first coll)                 (replace-when pred (rest coll) replacements)))        coll))))

user=> (def seq1 [:a :b :c])#'user/seq1user=> (def seq2 [:x "i" "u" :y :z "e"])#'user/seq2user=> (replace-when string? seq2 seq1) (:x :a :b :y :z :c)