Как мне избежать клочковского поведения Clojure для ленивых последовательностей, которые я хотите короткое замыкание?

У меня есть длинная, ленивая последовательность, которую я хочу уменьшить и проверить лениво , Как только два последовательных элемента не = (или некоторый другой предикат) друг к другу, я хочу прекратить использовать список, который является дорогим для производства. Да, это звучит как take-while , но читайте дальше.

Я хотел написать что-то простое и элегантное, как это (притворяясь на минуту, что каждый? работает как ] уменьшить ):

(every? = (range 100000000))

Но это не работает лениво, и поэтому оно висит на бесконечных последовательностях. Я обнаружил, что это работает почти так, как я хотел:

(apply = (range 100000000))

Тем не менее, я заметил, что фрагментация последовательности приводит к созданию дополнительных и ненужных элементов и их тестированию. По крайней мере, это то, что я думаю, это то, что происходит в следующем фрагменте кода:

;; Displays chunking behavior in groups of four on my system and prints 1 2 3 4
(apply = (map #(do (println %) %) (iterate inc 1)))

;; This prints 0 to 31
(apply = (map #(do (println %) %) (range)))

Я нашел обходной путь, используя take-while и count для проверки количества элементы взяты, но это довольно громоздко.

Должен ли я вежливо предложить Ричу Хикки, чтобы он сделал какую-то комбинацию , чтобы уменьшить и каждый? правильное короткое замыкание правильно, или я пропускаю некоторые очевидный путь, который уже существует?

РЕДАКТИРОВАТЬ: Два добрых человека опубликовали решения, позволяющие избежать разброса ленивых последовательностей, но как мне избежать чанкинга при применении , которое, по-видимому, потребляется в чанкованных группах по четыре?

РЕДАКТИРОВАТЬ # 2: Как отмечает Стюарт Сьерра, и я обнаружил, что это не так т на самом деле кусаться. Он просто действует как обычно, поэтому я назову это закрытым и дам ему ответ. Я включил небольшую функцию в отдельный ответ, чтобы выполнить уменьшающую часть проблемы для тех, кому это интересно.