LISP 列表 Clisp 函数小于

Question

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

例如:

列表是 (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))