Common Lisp 随机骰子

Question

我是 c 的初学者。 Lisp，实际上我的第一个代码有一些问题。主题是一个带有随机数的“骰子游戏”。如果你得到两个 1，你就赢了，如果你得到两个 6，你也赢了。

首先我写下这段代码：

(defun dice ()
  (+ (random 6) 1))


(defun dicegame (dice dice)
  (and (and (or
              (equal (print (dice)) 1)
              (equal (print (dice)) 6))
            (or
              (equal (print (dice)) 1)
              (equal (print (dice)) 6)))
       (or (equal (print (dice)) (print (dice))))))

(dicegame (dice) (dice))

它不工作。我得到了 6 个数字的结果，这些数字是 nil，我得到了 ex 的结果。 3 5 4 5 3 4 这是真的。我不明白。

比我写了一个正在工作的新的：

(defun dicegame-s (dice dice)
  (or (and (equalp (print (dice)) 1)
           (equalp (print(dice)) 1))
      (and (equalp (print(dice)) 6)
           (equalp (print(dice)) 6))))

我的问题是：为什么第一个不工作而第二个工作。

谢谢！

Answer 1

首先，dicegame-s 不是真的工作。您的代码存在一些问题：

• dicegame 函数的所有参数名称完全相同

这应该会导致代码解析失败。您可以将它们命名为 (dice-1 dice-2)。

• 您不使用传递给函数的参数

在您的函数中，您使用(dice)，这是一个函数调用。因此，您不必使用赋予函数的值，而是每次掷一个新骰子！

所以，当你写 (dicegame (dice) (dice)) 时，就是你在掷骰子的时候；该函数只检查值，并告诉你是否赢了。

• 你print太多了

print 函数打印一个值并返回它；这就是为什么有时 dicegame 最多有 6 个值，因为每个 (print (dice)) 都会写入其输出。事实上，即使在dicegame-s，如果两个骰子都是6，也会打印3个结果。

您应该调用一次，而不是每次都调用print——在函数的开头或结尾，或者函数之外的某个地方。

一个工作示例

要纠正以前的错误，您可以这样做：

(defun dicegame (dice-1 dice-2)
  (or (and (equalp dice-1 1)
           (equalp dice-2 1))
      (and (equalp dice-1 6)
           (equalp dice-2 6))))

(dicegame (print (dice)) (print (dice)))