lisp - 使用 Lisp 检查循环中的偶数和奇数

Question

我不明白为什么下面的 lisp 程序显示 15 行输出而不是 10 行:

(defparameter x 1)
(dotimes (x 10)
  (if (oddp x)
    (format t "x is odd~%"))
    (format t "x is even~%"))

我在 Windows 10 机器上使用 CLISP 2.49。

Answer 1

除了已接受的答案外，请注意使用自动缩进编辑器(例如使用 Emacs)可以轻松发现这些类型的错误。您的代码自动缩进如下:

(dotimes (x 10)
  (if (oddp x)
      (format t "x is odd~%"))
  (format t "x is even~%"))

if 和第二个 format 表达式垂直对齐(它们是以 dotimes 为根的树中的兄弟)，而您希望第二个 format 仅在测试失败时发生，与第一个深度相同。

备注

您还可以分解一些代码:

(format t 
        (if (oddp x) 
          "x is odd~%" 
          "x is even~%"))

甚至:

(format t
        "x is ~:[even~;odd~]~%" 
        (oddp x))

以上依赖conditional formatting .