将螺纹last与循环结合在clojure中

Question

我编写小型纸牌游戏，我希望我的代码非常明确，因此在高水平上清楚地表明，有很多回合可以玩。我的第一个实现是：

(defn play-game []
  (->
   (myio/initialize-cards-and-players)
   (shuffle-and-share-cards myio/myshuffle)
   ;(announce)
   (play-rounds)
  )
)

我希望比赛回合更加明确并表明，这是顶级循环：

(defn play-game []


  (->>
   (myio/initialize-cards-and-players)
   (shuffle-and-share-cards myio/myshuffle)
   (announce)

   (loop [round 1]
     (play-round-with-game round)
     (if (<= round 4)
       (recur (+ round 1))
       )
     )
                                        ;   (play-round-with-game 2)
                                        ;   (play-round-with-game 3)
                                        ;   (play-round-with-game 4)


   )
  )

但是我以某种方式无法获得“游戏”对象，每个函数都会返回到循环中。有没有螺纹的好方法来处理此操作？

还是有一种方法可以使用减少而不是循环？

Answer 1

正如尤金（Eugene）所建议的那样，您想保持简单。以下是我通常使用的结构，

(defn play-game
  []
  (let [game-init (->>
                    (myio/initialize-cards-and-players)
                    (shuffle-and-share-cards myio/myshuffle)
                    (announce))]
    (loop [round 1
           game  game-init]
      (if (< 4 round)
        game ; return result
        (let [game-next (play-round-with-game game round)]
          (recur (inc round) game-next))))))

我喜欢使用让表单为每个值提供一个明确的名称。它有助于避免混淆，尤其是对于代码的新读者而言。如果（INC圆形）并不那么简单，则我还将做一个明确的rount-next actible，并在recur中使用它。

另外，我喜欢返回条件是在循环的每次迭代中检查的第一件事。这通常将recur作为循环中的最后一个语句。