function - 如何在 lisp 中使用 do？

Question

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

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

玩一个游戏是我想在用户从提示中单击"is"时运行的功能。否则游戏终止，因为没有其他函数被调用。顺便说一句，以防万一你需要知道，我正在使用 Allegro。

Answer 1

假设你的 y-or-n-p 只有当用户按下 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)))