Clojure: Выполнение операции n раз с использованием вывода в качестве ввода следующей операции (a-la reduce)

Question

Я хочу выполнить определенное количество времени определенной операции (например, генерации племени). Каждый раз, когда я хотел бы использовать вывод предыдущей итерации в качестве ввода следующего.

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

(defn generate-game [world n-tribes] 
    (let [ game (create-game world) 
     game (reduce (fn [acc, _] (:game (generate-tribe acc))) game (repeat n-tribes :just_something))] 
    game)) 

Я предполагаю, что есть намного лучший способ сделать это. Можете ли вы помочь мне найти его?

Answer 1

Метод, используемый в этом вопросе, это хорошо, но использовать диапазон вместо этого

(defn generate-game [world n-tribes] 
    (reduce (fn [acc _] (:game (generate-tribe acc))) 
      (create-game world) 
      (range n-tribes))) 

S объекты ince range знают, как разумно уменьшить себя, это превратится в цикл. Это reduce метод диапазона:

public Object reduce(IFn f, Object start) { 
    Object ret = f.invoke(start,n); 
    for(int x = n+1;x < end;x++) 
      ret = f.invoke(ret, x); 
    return ret; 
} 

Если состояние игры будет заводиться в атоме равно, то вы могли бы также рассмотреть dotimes обновить его.

(defn generate-game [world n-tribes] 
    (let [game (atom (create-game world))] 
    (dotimes [_ n-tribes] (swap! game (comp :game generate-tribe))) 
    game)) 

Iterate также является прекрасным решением. Больше обсуждений на Iteratively apply function to its result without generating a seq.

Answer 2

Если это та же функция повторяется n-tribes раз, а затем с помощью iterate и получение n-tribes -го элемента должно работать:

(defn generate-game [world n-tribes] 
    (let [ game (create-game world) 
     game (nth (iterate generate-tribe game) n-tribes)] 
     game)) 

Помните, что iterate создает ленивую последовательность так, ничего не будет вычисляться до тех пор, пока не поступит запрос.

Другой вариант применения comp к списку функций, в конце концов, это простая функция состав:

(generate-tribe (generate-tribe .... (generate-tribe game) ....)) 

           n-tribes times 

Так что-то вроде:

(defn generate-game [world n-tribes] 
    (let [ game (create-game world) 
     game ((apply comp (repeat n-tribes generate-tribe)) game)] 
     game)) 

выражает именно эту идею.

Answer 3

Не эксперт Clojure, но я ожидал бы

(defn generate-game [world n-tribes] 
    (nth (iterate generate-tribe (create-game world)) n-tribes)) 

или (менее лаконичным)

(defn generate-game [world n-tribes] 
    (let [game (create-game world)] 
    (nth (iterate generate-tribe game) n-tribes))) 

работать