lisp - 方案:Cond "not equal"

Question

我想在方案中这样做:

if ((car l) != (car (cdr (order l))) do something

特别是我写了这个:

((eq? (car l) (car (cdr (order l))) ) 
 (cons (count (car (order l)) (order l)) 
       (count_inorder_occurrences (cdr (order l))))) 

但它比较 (car l) 和 (car (cdr (order l)) 是否相等。相反，我只想在 eq? 为 false 时才做某事。在我的示例中如何做到这一点？

谢谢

Answer 1

您可以为此使用not。

(cond
 ((not (eq? (car l) (cadr (order l))))
  (cons (count (car (order l)) (order l))
        (count-inorder-occurrences (cdr (order l))))
 ...)