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>
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博客 ” ，链接：https://blog.itpub.net/133735/viewspace-741681/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
求无序数组总第n大的数
下一篇：
lisp 习题 钱币换算问题
请登录后发表评论
登录
全部评论
