lisp - 如果在 lisp 中则嵌套

Question

你好，我正在尝试在 lisp 中创建一个嵌套的 if，但我们不断收到错误，而且我们不知道如何修复它!

** - EVAL: too many parameters for special operator IF:

(defun spread-stones-helper(game-state StoneInHand Player player-index pit-index)

    ;; Do we have more stones in our hand?
   (if (> 0 StoneInHand)
        ;; Are we above the pit limit?
        (if (> pit-index 5)
            ;; Switch the player and reset the pit-index to 0
            (setq player-index (switchplayer player-index))
            (setq pit-index '0)
        )

        ;; Add 1 to the pit
        (set-pit game-state player-index (GetCorrectPit player-index pit-index) (+ (get-pit game-state player-index (GetCorrectPit player-index pit-index)) 1))

        ;; Recursive call the function, with one less stone and 1 up in pit-index
        (spread-stones-helper game-state (- StoneInHand 1) Player player-index (+ pit-index 1))
    )
    ;; There are no more stones in hand, run capture stones
    ;; (captureStones game-state StoneInHand Player player-index pit-index)
)

Answer 1

在 lisp 中，if 运算符接受三个表达式，即条件、条件为真时的值和条件为假时的值...例如

(if (< x 0)
    (print "x is negative")
    (print "x is greater or equal than zero"))

您也可以省略最后一个表达式，在这种情况下它被假定为 NIL。

如果你想在这两种情况之一中放置更多表达式，你必须将它们包装在 progn 形式中

(if (< x 0)
    (progn
       (print "HEY!!!!")
       (print "The value of x is negative...")))

if 表达式只包含两个分支之一并包含许多表达式的情况非常常见，因此添加了两个特殊变体以用于这种确切的用法:

(when (< x 0)
    (do-this)
    (do-that)
    (do-even-that-other-thing))

(unless (< x 0)
    (do-this)
    (do-that)
    (do-even-that-other-thing))

上面的when 形式等同于

(if (< x 0)
   (progn
     (do-this)
     (do-that)
     (do-even-that-other-thing)))

unless 形式具有完全相同的含义，但条件相反......换句话说，它等同于

(if (not (< x 0))
   (progn
     (do-this)
     (do-that)
     (do-even-that-other-thing)))

总而言之，只有当您需要为两个 分支(真分支和假分支)编写代码时，才应使用if。否则使用 when 或 unless，具体取决于您的测试的可读性。

当使用 if 表单时，您必须在需要放置多个表单的分支中使用 progn。