首页
Common Lisp Single Element Compare:
- 代码:
(defun my-equal-p (x y)
(cond
((and (consp x) (consp y)) (and (my-equal-p (rest x) (rest y)) (number-compare (first x) (first y))))
(t (number-compare x y)))
)