Как создать ленивую «восстановить карту» функцию?

Question

Я пытаюсь осуществить функцию «восстановить карту». То есть он должен вернуть последовательность, состоящую из результата применения f на первые 2 предмета coll, с последующим результатом применения f в этот результат и третий предмет в coll, и т.д.

(def c [[0 0 0 0] [1 0 0 0] [0 1 0 0] [0 0 1 0] [0 0 0 1]])

(defn- sum-vector [v1 v2]
  (map + v1 v2))

(defn reduce-map [f coll & acc]
  (if (< (count coll) 2)
    (if (empty? acc) coll acc)
    (let [head (apply f (take 2 coll))
          tail (drop 2 coll)]
      (recur f (conj tail head) (conj acc head)))))

Например, вызывая эту функцию, как это:

(reduce-map sum-vector c)

должен вернуться:

[[1 0 0 0] [1 1 0 0] [1 1 1 0] [1 1 1 1]]

(На самом деле, это, вероятно, должно вернуть первый пункт безмонтифицированного, чтобы лучше имитировать map, но я могу исправить это позже.)

Правильно, сейчас это то, что он возвращает:

((1 1 1 1) (1 1 1 0) (1 1 0 0) (1 0 0 0))

Как мне «нажать» в конце (NY) SEQ?

Если я заменив reduce-map за recur, это то, что он возвращает:

(((1 1 1 1) ((1 1 1 0) ((1 1 0 0) ((1 0 0 0))))))

В чем разница между recur И истинная рекурсия в моем коде выше?

И, Есть ли встроенный или лучше или более идиоматический, способ реализации reduce-map?

Наконец, я бы хотел ленивую последовательность вывода. Я просто обернуту все в lazy-seq?

Answer 1

Это звучит немного, как reductions.

Что касается «толкания» в конце SEQ: в общем SEQ не имеет «конца», ср. (iterate inc 0).

Что касается «нажатия» в конце списка: списки не предназначены для этого. Используйте вектор. Семя ваш аккумулятор с [], нет nil.

Относительно lazy-seq: Используйте «настоящую» рекурсию вместо recur. Отказ Вот пример:

(defn integer-seq
  [start]
  (lazy-seq
    (cons start (integer-seq (inc start)))))