lisp 习题 区分非递减的列表

给出一个列表，当且仅当 所有元素不是递减的时候返回 true



CL-USER> (defun not-r (lst)
       (if (or (null lst)
           (= 1 (length lst)))
           t
           (and (<= (first lst) (second lst))
            (not-r (cdr lst)))))
STYLE-WARNING: redefining COMMON-LISP-USER::NOT-R in DEFUN
NOT-R
CL-USER> (not-r '(1 1))
T

CL-USER> (not-r '(5 4 3 2 1))
NIL
CL-USER> (not-r '(1 2 3 4 5))
T
CL-USER>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/133735/viewspace-741681/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/133735/viewspace-741681/