clojure-使用loop和recur并使用惰性序列

Question

(letfn [(permutations [s]
              (lazy-seq
               (if (seq (rest s))
                 (apply concat (for [x s]
                                 (map #(cons x %) (permutations (remove #{x} s)))))
                 [s])))])

如果我像下面那样使用循环重复，列表会被急切地评估吗？

(loop [perms (permutations chain)]
       (if (empty? perms)
         (prn "finised")
         (recur (rest perms))))

如果需要计算它，我可以使用loop..recur来对置换函数返回的内容进行懒洋洋的循环吗？

Answer 1

loop-recur代码会懒洋洋地计算列表。

你可以自己试试。让我们通过添加println调用，使置换每次返回值时都打印一些内容。

(defn permutations [s]
  (lazy-seq
   (if (seq (rest s))
     (apply concat (for [x s]
                     (map #(cons x %) (permutations (remove #{x} s)))))
     (do
       (println "returning a value")
       [s]))))

在使用loop时，我们还要使用we are looping over with(prn(first perms)打印值。

(loop [perms (permutations [1 2 3])]
  (if (empty? perms)
    (prn "finised")
    (do
      (prn (first perms))
      (recur (rest perms)))))

returning a value
(1 2 3)
returning a value
(1 3 2)
returning a value
(2 1 3)
returning a value
(2 3 1)
returning a value
(3 1 2)
returning a value
(3 2 1)
"finished"