Lisp列表迭代

Question

我有一个获取x(值)和xs(列表)的函数,并从列表中删除所有大于x的值.那它不起作用,你能告诉我为什么吗？

(defun biggerElems(x xs) 
  (let ((xst))
    (dolist (elem xs)
      (if (> x elem)
          (setf xst (remove elem xs))))
    xst))

Answer 1

我认为这条线路不对:

(setf xst (remove elem xs))))

第一个参数setf是地点,后跟值.它看起来像你倒退(并且xst是nil或未初始化).

您可能会发现这样做更容易:

(defun biggerElems (x xs)
  (remove-if (lambda (item) (> item x)) xs))