emacs - 在相等性检查中可能有 2 个以上的值？ (> NUM1 NUM2) ELISP

Question

函数“大于”，(< NUM1 NUM2) , 只允许返回 t/nil 来比较 2 个值。

我想测试 (var1 > var2 < var3 < var4)，有什么方法可以只使用 lisp 中的一个函数吗？如果不是，最好的程序是什么？

Answer 1

最好的程序是不要打扰:(and (< var2 var1) (< var2 var3) (< var3 var4))不难读懂你的 ..>..<..<..链。

测试升序是有意义的:

(require 'cl)
(defun cl-< (&rest args)
   (every '< args (cdr args))

这几天我毫不犹豫(require 'cl)现在，但如果你这样做，这是另一种变体:

(defun cl-< (arg &rest more-args)
  (or (null more-args)
      (and (< arg (first more-args))
           (apply #'cl-< more-args))))