Question

以下代码中的语法错误是什么？

(defun getchoice3 ()
  (let ( (choice 1) )
    (format t  "~%Enter a number (1-5): ")
    (loop for choice = (or (parse-integer (prompt-read "Choice: ") :junk-allowed t) 0) do
      while (and (> choice 0) (< choice 6))
        (cond 
          ((= choice 1) (print "1 chosen"))
          ((= choice 2) (print "2 chosen"))
          ((= choice 3) (print "3 chosen"))
          ((= choice 4) (print "4 chosen"))
          ((= choice 5) (print "5 chosen"))
          (t (print "invalid entry, exiting."))))
            choice))

报告的错误非常笼统：

*** - LOOP: illegal syntax near
       (COND ((= CHOICE 1) (PRINT "1 chosen")) ((= CHOICE 2) (PRINT "2 chosen")) ((= CHOICE 3) (PRINT "3 chosen"))
        ((= CHOICE 4) (PRINT "4 chosen")) ((= CHOICE 5) (PRINT "5 chosen")) (T (PRINT "0 chosen, exiting.")))
      in
       (LOOP FOR CHOICE = (OR (PARSE-INTEGER (PROMPT-READ "Choice: ") :JUNK-ALLOWED T) 0) WHILE (AND (> CHOICE 0) (< CHOICE 6))
        (COND ((= CHOICE 1) (PRINT "1 chosen")) ((= CHOICE 2) (PRINT "2 chosen")) ((= CHOICE 3) (PRINT "3 chosen"))
         ((= CHOICE 4) (PRINT "4 chosen")) ((= CHOICE 5) (PRINT "5 chosen")) (T (PRINT "0 chosen, exiting."))))

虽然代码中有“do”，但错误消息中没有报告。

Answer 1

语法错误消失了。你应该真的尝试你的代码。

我无法理解为什么你没有正确地缩进代码。如果没有适当的缩进，您将无法编写任何有效的代码，尤其是不能使用Lisp代码。

您的代码：

(defun getchoice3 ()
  (let ( (choice 1) )
    (format t  "~%Enter a number (1-5): ")
    (loop for choice = (or (parse-integer (prompt-read "Choice: ") :junk-allowed t) 0)
      while (and (> choice 0) (< choice 6)) do
        (cond 
          ((= choice 1) (print "1 chosen"))
          ((= choice 2) (print "2 chosen"))
          ((= choice 3) (print "3 chosen"))
          ((= choice 4) (print "4 chosen"))
          ((= choice 5) (print "5 chosen"))
          (t (print "invalid entry, exiting."))))
        choice))   ; <- WHY THIS INDENTATION?

正确格式化的代码看起来更像这样（没有一种方法可以格式化它，但缩进始终是相同的方式）：

(defun getchoice3 ()
  (let ((choice 1))
    (format t  "~%Enter a number (1-5): ")
    (loop for choice = (or (parse-integer (prompt-read "Choice: ")
                                          :junk-allowed t)
                           0)
          while (and (> choice 0)
                     (< choice 6))
          do (cond 
              ((= choice 1) (print "1 chosen"))
              ((= choice 2) (print "2 chosen"))
              ((= choice 3) (print "3 chosen"))
              ((= choice 4) (print "4 chosen"))
              ((= choice 5) (print "5 chosen"))
              (t (print "invalid entry, exiting."))))
    choice))

你看到最后一行的例子有何区别？我的版本正确缩进。

为什么这很重要？它可以帮助您理解您的函数将始终返回1。独立于任何输入，函数将始终返回1。在给定范围的情况下，缩进可以帮助您理解属于什么的东西。

这没有正确缩进。

(let ((a 1))
  (loop for a from 1 to 10)
        a)   ; <-  where does this a belong to???
             ; this indentation indicates that A belongs to the LOOP
             ; which it doesn't

正确的缩进是：

(let ((a 1))
  (loop for a from 1 to 10)
  a)     ; here it's clear to see that A was introduced by the LET construct

所以，不要以这样的方式缩进代码，让你的梦想变得有意义。使用编辑器命令正确执行此操作。然后，您可以更好地发现代码中的问题。

Lisp代码可以以任意方式进行格式化和缩进，因为它使用与缩进无关的数据结构：s-expression。

Lisp并不关心：

(+ a b c)

或

(+
a               b
        c)

或

        (+
a
       b

c)

Lisp也是如此。

但不适合人类。只有上述版本的一个版本对人类有用。

如果您没有花费任何精力来缩进和格式化代码，那么为什么有人会努力回答您的问题，而这些问题到目前为止都是由琐碎的语法错误造成的。

带有循环和条件的Lisp代码中的语法错误

1 个答案: