给出一个列表,当且仅当 所有元素不是递减的时候返回 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>
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/