Common Lisp中LOOP循环统计列表元素次数的报错问题

错误原因分析 #

你的代码触发LOOP keyword expected错误，核心问题有这几点：

• LOOP语法不规范：Common Lisp的loop结构中，遍历元素后必须用do（或其他loop关键字）标记要执行的代码块，不能直接紧跟表达式。
• 变量未实际更新：(+ lower 1)只是返回计算结果，并没有修改lower变量的值，等于没完成计数累加，得用赋值操作更新变量。
• 拼写错误：代码里的elemen是笔误，应该是element，这会导致变量未定义的隐性问题。
• 全局变量风险：直接用setq会创建全局的upper和lower变量，容易污染全局环境，应该用局部变量绑定。

修正后的代码 #

下面是修复并优化后的版本：

(defun find-inlist (y)
  (let ((upper 0)
        (lower 0))
    (loop for element in y do
      (cond
        ((< element 32) (incf lower))
        ((> element 212) (incf upper))))
    (list upper lower)))

代码说明 #

• 用let声明局部变量upper和lower，初始值设为0，避免全局变量污染。
• loop中用do关键字明确标记遍历元素时要执行的操作，符合语法规范。
• 用cond替代嵌套if，逻辑更清晰；incf是Common Lisp内置的自增函数，等价于(setf lower (+ lower 1))，简化了计数操作。
• 修正了变量名拼写错误，确保逻辑判断的变量一致。

测试验证 #

运行你的测试用例：

> (find-inlist '(18 75 31 180 270 52 10 215))

会返回正确结果：(2 3)（超过上限212的元素是270、215，共2个；低于下限32的是18、31、10，共3个）。

内容的提问来源于stack exchange，提问作者M1ctl4nt3cutl1