Question

我正在学习下班后学习clojure的过程中，我正在通过制作一个小游戏（喜欢quil库）来让我熟悉特定和FP中的clojure的不同方面。

所以，我的游戏世界存在地图数据结构的三维网格（地图矢量矢量的矢量）。我想迭代3d空间中的每个点（map）并在满足条件时更改数据。这是我最初的解决方案：

（游戏数据结构是游戏状态（地图））

(defn soil-gen [game]
  (let [world-x (game :world-x)
        world-y (game :world-y)
    world-z (game :world-z)]
      (for [x (range world-x) 
          y (range world-y) 
          z (range world-z) 
          :when (> z (* world-z (rand)))]
         (assoc-in game [:world x y z :type] :soil))))

但是这会返回每次迭代的结果列表（我的游戏状态数据结构）而不是一个游戏数据结构。我应该能够以某种方式将每次迭代的结果传递回去。可能会像loop / recur之类的东西，但我认为你不能将recur与for结合起来。

有人知道吗？

感谢

Answer 1

您可以使用reduce与for一起使用，如下所示：

(defn soil-gen [game]
  (let [world-x (game :world-x)
        world-y (game :world-y)
    world-z (game :world-z)]

    (reduce (fn [g [x y z]] (assoc-in g [:world x y z :type] :soil)))
            game
            (for [x (range world-x) 
                  y (range world-y) 
                  z (range world-z) 
                 :when (> z (* world-z (rand)))]
                 [x y z]))))

Answer 2

您可能希望使用reduce之类的内容在每次迭代之间传递累积结果。

简化示例：

(reduce 
  (fn [m val] (assoc m val (str "foo" val))) 
  {}               ;; initial value for m 
  (range 5))       ;; seqence of items to reduce over

=> {4 "foo4", 3 "foo3", 2 "foo2", 1 "foo1", 0 "foo0"}

只要在函数式编程中有一个“累积值”的概念，

reduce通常非常有用。它还具有非常高效的优势。

你可以将数据传递给下一次迭代（for ...）吗？

2 个答案: