Common-LISP 调试（包含代码）

Question

我希望快速修复我的代码，该代码接受数字列表、数字列表和阈值，并返回数字列表中大于阈值的项目数。我就是不知道出了什么问题，而且我对调试也不熟悉。我对stackoverflow很陌生，一般来说LISP......任何cmets /批评/建议都将受到欢迎。谢谢！

ex) (count-greater-than (list 1 2 3 4 5 6 6 7) 5) => 3

(defun count-greater-than (numberlist threshold)
  (if (null numberlist) 0
    (counter (numberlist threshold 0)))
  (defun counter (numberlist threshold count)
    (cond ((null numberlist) count)
          ((> (first numberlist) threshold) (counter (rest numberlist) threshold (+ 1 count)))
          (t (counter (rest numberlist) threshold count)))))

Answer 1

首先，请注意该标准实际上包含有助于解决此类问题的功能。有一个有用的 count-if 函数可以接受一个谓词并计算列表中有多少元素满足它。对于您的情况，您可以这样做：

CL-USER> (count-if #'(lambda (x)
                       (> x 5))
                   (list 1 2 3 4 5 6 6 7))
;=> 3

CL-USER> (defun count-greater-than (numbers threshold)
           (count-if (lambda (n) (> n threshold)) numbers))
COUNT-GREATER-THAN
CL-USER> (count-greater-than (list 1 2 3 4 5 6 6 7) 5)
3
CL-USER> (count-greater-than (list 1 2 3 4 5 6 6 7) 6)
1

在您的特定情况下，您似乎是手动执行此操作，但括号错误。您似乎正在尝试创建一个名为 counter 的本地辅助函数。您可以使用 defun 在函数外部定义它，例如：

(defun count-greater-than (numberlist threshold)
  (if (null numberlist) 0
    (counter (numberlist threshold 0))))

(defun counter (numberlist threshold count)
  (cond ((null numberlist) count)
        ((> (first numberlist) threshold) (counter (rest numberlist) threshold (+ 1 count)))
        (t (counter (rest numberlist) threshold count))))

或者您可以使用标签使用本地定义：

(defun count-greater-than (numberlist threshold)
  (labels ((counter (numberlist threshold count)
             (cond ((null numberlist) count)
                   ((> (first numberlist) threshold) (counter (rest numberlist) threshold (+ 1 count)))
                   (t (counter (rest numberlist) threshold count)))))
    (if (null numberlist) 0
        (counter numberlist threshold 0))))

注意事项

正如 Xach 在 cmets 中指出的那样，您实际上可以使用 count 的 :test 参数更简洁地做到这一点。我不知道它是否非常明确地捕捉到“用这个属性计算事物”的概念，但它提供了一个非常简短的解决方案：

CL-USER> (count 5 (list 1 2 3 4 5 6 6 7) :test #'<)
;=> 3

这会计算 5 在列表中出现的次数，但诀窍是它不是使用 eql 或 = 检查列表元素是否为 5，而是使用 。也就是说，count 最终会检查 (，然后是 (，...，直到 ( 、(。 is 指定测试将按该顺序使用参数调用。 glossary entry on satisfy the test 说（强调）：

1. （对于两个参数测试）处于这样一种状态，即作为序列函数的测试参数的两位谓词返回 true 当给定作为被考虑对象的第一个参数时，并且 当给定 第二个参数时，该参数是调用 序列函数在序列元素上的关键参数 正在测试是否相等的函数的序列参数；