неоднократно применяют функцию к структуре данных

Question

Я хотел бы применить функцию несколько раз к структуре данных и задавался вопросом, есть ли более простой способ.

;; simple map and map-incrementing function 
(def a {:a 1}) 
(defn incmap [x] (update-in x [:a] inc)) 

;; best I could come up with 
(reduce (fn [m _] (incmap m)) a (range 10)) 

;; was hoping for something like this 
(repeatedly-apply incmap a 10) 

Answer 1

Вы ищете iterate:

(итерация FX)

Возвращает ленивую последовательность х (Fx), (е (Fx)) и т.д. е должен быть свободным побочных эффектов

Вам просто нужно взять п-й элемент:

(nth (iterate incmap a) 9) 

Использование продевал макрос:

(-> (iterate incmap a) 
    (nth 9))