Question

我现在正在学习Lisp，并且正在尝试做一个练习，要求我获取列表的最大值，其语法与我所学的大多数编程语言完全不同，所以一些困难。

我的代码：

 (defun test(y)
     (cond
          ((and (first y) (> (second y)) (> (third y))) 
        (format t "numero maximo ~d" (first y))
          ((and (second y) (> (first y)) (> (third y))) 
        (t (format t "numero maximo ~d" (second y))
          ((and (third y) (> (second y)) (> (first y))) 
        (t (format t "numero maximo ~d" (third y))
    ))

我收到此错误：incomplete s-expression in region

Answer 1

您的代码太复杂了，它试图从列表中获取元素，进行比较并打印一些内容。与其他语言一样，使用较小的功能，尤其是使用新语言时，请经常进行测试，以免不得不调试太大的内容。

您的代码自动与Emacs缩进，如下所示：

(defun test(y)
  (cond
    ((and (first y) (> (second y)) (> (third y)))
     (format t "numero maximo ~d" (first y))
     ((and (second y) (> (first y)) (> (third y)))
      (t (format t "numero maximo ~d" (second y))
         ((and (third y) (> (second y)) (> (first y)))
          (t (format t "numero maximo ~d" (third y))
             ))

编辑器抱怨括号不平衡：

在(> (second y))中，>函数仅被赋予一个参数
您的所有cond子句实际上都嵌套在第一个子句中。使用突出显示匹配括号的编辑器在这里很有帮助。语法应为：
```
(cond
  (test-1 ...)
  (test-2 ...)
  (t ...))
```
如果您的测试涉及调用谓词，那么它看起来像：
```
(cond
  ((and (f1 ...) (f2 ...)) ;; <-- test
   ... ;; <-- code
  ) ;; end of first clause
) ;; end of cond
```
但是请注意，您不需要为分隔符添加注释，缩进和括号的自动突出显示可以帮助您避免错误。

让我们尝试重写。

首先，您可以编写一个只比较数字而不考虑列表或格式的函数；这是一个非常简单的max-of-3实现（无需作弊和调用内置的max函数）：

(defun max-of-3 (x y z)
  (if (> x y)
      (if (> x z) x z)
      (if (> y z) y z)))

评估该功能，并在多个输入上对其进行测试，例如在REPL中：

CL-USER> (max-of-3 0 2 1)
2
....

然后，您可以为列表建立另一个功能：

(defun test (list)
   (format t 
           "numero maximo ~d"
           (max-of-3 (first list)
                     (second list)
                     (third list))))

如果您需要提前进行更多错误检查，例如检查列表格式是否正确，则应该定义其他辅助功能。

Answer 2

如果我理解问题和答案，则不管列表的长度如何，我都可以提供一个或两个返回最大值的解决方案。因此，这些解决方案不仅限于三个。

这说明了一种测试“ max-lst”是被测Lisp函数的方法：

(defconstant test-case 
  (list 1 2 0 8 7 6 9 4 5))

(defun run-test ()
  (max-lst test-case))

解决方案1

此解决方案使用递归。如果您更喜欢循环，那么Lisp有多个循环。不使用Lisp函数“ max”：

(defun max-lst (lst-in)
  (cond ((null (second lst-in))
         (first lst-in))

        ((> (first lst-in) (second lst-in))
         (max-lst
          (list* (first lst-in) (rest (rest lst-in)))))

        (t
         (max-lst
          (list* (rest lst-in))))))

解决方案2

如果您不反对使用Lisp函数“ max”，那么这里是使用max的解决方案。

请注意，max不仅限于两个参数。

(max 5 6 4 7 3)

将返回7。

在此解决方案中，函数“ max”作为参数传递给函数“ reduce”。 “ reduce”函数将一个函数和一个列表作为参数。该函数将应用于每个相邻的参数对并返回结果。如果需要总和，可以传递+参数。

(defun max-lst-using-max (lst-in)
  (reduce #'max lst-in))

A，我担心提供这些解决方案的时间太晚，无法与原始海报相关。但是也许其他人也会有类似的问题。因此，毕竟这可能会有所帮助。

使用三个数字获取列表的最大值

2 个答案:

解决方案1

解决方案2

使用三个数字获取列表的最大值

2 个答案:

解决方案1 ​​

解决方案2

解决方案1