如何在 lisp 中使用 do？答案

【问题标题】：How to use do in lisp?如何在 lisp 中使用 do？
【发布时间】：2015-05-13 19:39:11
【问题描述】：

我要做的是编写一个函数，该函数将在井字游戏结束后重新开始。应该发生的是，将询问玩家是否想玩另一场比赛。如果他们这样做了，那么他们会单击“是”并调用一个函数来重新开始游戏。如果他们选择否，则程序终止。这是我到目前为止所拥有的......

(defun play-again ()
  (do (y-or-n-p "Would you like to play again? ")
      ((play-one-game) nil)))

play-one-game 是当用户从提示中单击“yes”时我想要运行的功能。否则游戏终止，因为没有调用其他函数。顺便说一句，以防万一你需要知道，我正在使用 Allegro。

【问题讨论】：

【解决方案1】：

这里使用do的解决方案： (defun play-again () (do ((again t (y-or-n-p "Would you like to play again?"))) （（不再）无）（玩一个游戏）））

（这个函数第一次调用play-one-game没有问题）

【讨论】：

【解决方案2】：

假设您的y-or-n-p nil 只有当用户按下 n 时，您才能将主循环编写为

(defun main ()
  (loop :while (y-or-n-p "Would you like to play again? ")
        :do (play-one-game)))

或者在我将重命名 play 的 play-one-game 结束时，提示用户，如果他想再次玩，只需再调用一次 play。

(defun play-one-game ()
  ....
  (when (y-or-n-p "Would you like to play again? ")
    (play-one-game)))

【讨论】：