Кложур. Зачем нужна обертка lazy-seq?

Первый ленивый. Он только оценивает элементы последовательности по мере необходимости. Второй, однако, строгий и сразу проходит всю последовательность. Это можно увидеть, если вы добавите несколько вызовов println в каждый:

(defn seq1 [s]
  (lazy-seq
    (when-let [x (seq s)]
      (println "Seq1" (first x))
      (cons (first x) (seq1 (rest x))))))


(defn seq2 [s]
  (when-let [x (seq s)]
    (println "Seq2" (first x))
    (cons (first x) (seq2 (rest x)))))

(->> (range 10)
     (seq1)
     (take 5))
Seq1 0
Seq1 1
Seq1 2
Seq1 3
Seq1 4 ; Only iterated over what was asked for
=> (0 1 2 3 4) 

(->> (range 10)
     (seq2)
     (take 5))
Seq2 0
Seq2 1
Seq2 2
Seq2 3
Seq2 4
Seq2 5
Seq2 6
Seq2 7
Seq2 8
Seq2 9 ; Iterated over everything immediately
=> (0 1 2 3 4) 

Итак, чтобы ответить на вопрос, lazy-seq требуется только в том случае, если вы хотите, чтобы итерация последовательности происходила только по мере необходимости. Предпочитайте ленивые решения, если вы думаете, что вам может не понадобиться вся последовательность, или последовательность бесконечна, или вы хотите упорядочить несколько преобразований, используя map или filter. Используйте строгое решение, если вам, вероятно, понадобится вся последовательность в какой-то момент и/или вам нужен быстрый произвольный доступ.