运算符号也能作为函数参数

aimisiyou

一数列按降序排列，找出不大于平均值的第2个数（即将不大于平均数的数降序排列，排在第2的数，如果有相同的数要去重，如不大于平均值9的数为9,9,8,7……，则不大于平均值的第2个数是8）。首先我们利用<=函数尝试寻找最接近平均值P的数，此时找到的是P1（P1可能等于P，也可能小于P），然后我们再用<函数查找最接近P1的数P2，P2即是程序要找的数。可以看出，都是寻找过程，第一次用<=号，第二次用的是<，若将符号也作为参数，那么可以将两个搜寻过程写成一个通用函数。
_$ (if (eval (cons (read "<") '(7 8))) 1 0)
1
_$ (if (eval (cons (read "<") '(7 6))) 1 0)
0
_$ (if (eval (cons (read "<=") '(7 7))) 1 0)
1
_$ (if (eval (cons (read ">=") '(7 7))) 1 0)
1
_$
(defun  fpmin(str lst p_num)
(if (eval (cons (read str) (list p_num (car lst))))
         (setq va (car lst))
     (setq va (fpmin str (cdr lst) p_num ))
)
)
(fpmin ">=" '(9 8 7 6 5 4 3 2 1) 5.5)
FPMIN
5
_$ (fpmin ">=" '(9 8 7 6 5 4 3 2 1) 5)
5
_$ (fpmin "<" '(9 8 7 6 5 4 3 2 1) 5)
9
_$ (fpmin ">" '(9 8 7 6 5 4 3 2 1) 5)
4
_$

aimisiyou

一维下料中，首先按<=函数查找最接近原料长L的组合（其组合长度为L1，L1可能等于L，也可能小于L），再按<查找最接近L1的组合，故可以将运算符号作为参数，写一个通用查询函数。