Lisp递归mergesort与升序？

作者: 咿呀哟
发布时间: 2025-02-06 05:17:26 (1天前)
转自：

2 条回复

0#
回复此人
Innate Mind | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 首先，这是 <code> merge </code> 不是 <code> mergesort </code> - 参数已经排序。 </p> <P> 你的代码真的不可读。有一些缩进，它是 </p> <pre> <code> (defun MERGE (NLIST1 NLIST2) (cond ((null NLIST1) NLIST2) ((null NLIST2) NLIST1) ((<= (car NLIST1) (car NLIST2)) (cons (car NLIST1) (car Nlist2)) ; ?? no effect (MERGE (cdr NLIST1) (cdr NLIST2))) (t (cons (car NLIST2) (car NLIST1)) ; ?? no effect (MERGE (cdr NLIST1) (cdr NLIST2))))) </code> </pre> <P> 如您所见，您的括号是错误的。始终使用缩进，以更好地查看代码的结构。 </p> <P> 相反，应该是什么 </p> <pre> <code> (defun MERGE (NLIST1 NLIST2) (cond ((null NLIST1) NLIST2) ((null NLIST2) NLIST1) ((<= (car NLIST1) (car NLIST2)) (cons (car NLIST1) (MERGE .... ....))) (t (cons (car NLIST2) (MERGE .... ....))))) </code> </pre> </DIV>

编辑

登录后才能参与评论