LISP列表小于的Clisp函数

Question

我想写一个带两个参数的函数 一个原子x和一个列表L，并返回列表L中小于x的数字列表

例如：

列表为(2 10 3 9 4 8)，x为5

输出应为：(2 3 4)

我想我可以使用小于功能

(defun less-than (x y)
  (or (< x y))

但它从列表中返回的次数少于：（

Answer 1

(defun less-than (x L)
  (remove-if-not
   (lambda (e) (< e x))
   L))

(less-than 5 '(2 10 3 9 4 8))
=> (2 3 4)

或

(defun less-than (x L)
  (remove-if
   (lambda (e) (>= e x))
   L))