LISP list 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))