使用Lisp递归检查连续数字

作者: ⑩Ⅵ嵗Ｄ夨憶
发布时间: 2024-10-15 10:47:22 (29天前)
转自：

2 条回复

0#
回复此人
那年 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 检查序列中的数字是否正确 <EM> 连续 </EM> ，即增加步骤1，你需要这个： </p> <pre> <code> (defun list-consecutive-p (list) (or (null (cdr list)) (and (= 1 (- (second list) (first list))) (list-consecutive-p (rest list))))) </code> </pre> <P> 然后 </p> <pre> <code> (list-consecutive-p '(1 2 3 4)) ==> T (list-consecutive-p '(1 4)) ==> NIL (list-consecutive-p '(4 1)) ==> NIL </code> </pre> <P> 的<strong> NB </强> 。数字是布尔值的不良替代品。 </p> <P> 的<strong> PS </强> 。我想知道这是否与此有关 <a href="https://stackoverflow.com/q/54620566/850781"> 如何检查列表中的所有数字是否稳步增加？ </A> ... </p> </DIV>

编辑

登录后才能参与评论