第n个替换（合并排序

wishbonesr · 发表于 2022-7-6 08:31:01

我已经基于Ellis Dee的vb6版本在Autolisp中完成了MergeSort算法的实现：http://www.vbforums.com/showpost.php?p=2909257&postcount=12

问题是我需要替换lisp数组中的第n个原子，目前唯一可以实现这一点的方法是迭代整个列表。这需要一个壮观的排序算法，并通过对列表进行第n次（log）迭代来破坏其效率。我会尽量不让水太浑浊，但这是我的第n个替换函数，基于Michels第n个移除函数。。。

copy

  (defun nth-replace (n_atom f_list f_n / ) ;replaced the nth element of a list
   ;n_atom is new atom
   ;f_list is list to be operated on
   ;f_n is the index that will be replaced
   (if (and (numberp f_n) (listp f_list))
     (if (and (>= f_n 0) (< f_n (length f_list)) n_atom)
(progn
  (repeat f_n
    (setq f_list (append (cdr f_list) (list (car f_list))))
    )
  (setq f_list (append (cdr f_list) (list n_atom)))
  (repeat (- (length f_list) f_n 1)
    (setq f_list (append (cdr f_list) (list (car f_list))))
    )
  )
)
     )
   f_list
   );defun

我对autolisp并不完全陌生，但我希望有一个我忽略的基本函数，可以在某个级别替换原子，或者可以将列表返回到某个原子（第n个实例），然后我可以附加我的更改，然后是列表的后半部分。

BlackBox · 发表于 2022-7-6 08:34:55

考虑这个例子：

林奇

**编辑-来自VLIDE控制台的示例：

copy


REPLACE3 
_$ (replace3 '(1 2 3 3 2 1) 3 4)
(1 2 3 4 2 1)
_$

Stefan BMR · 发表于 2022-7-6 08:40:49

第一个想法。。

copy


(defun nth-rep (x l n / i)
 (setq i -1)
 (mapcar '(lambda (a) (cond ((= (setq i (1+ i)) n) x) (a))) l)
 )

编辑：哎呀。。。太晚了

alanjt · 发表于 2022-7-6 08:43:09

快一点，但应该有用。。。

copy

(defun _nthReplace (item index lst)
 (if (and lst (> index 0))
   (cons (car lst) (_nthReplace item (1- index) (cddr lst)))
   (cons item (cdr lst))
 )
)

wishbonesr · 发表于 2022-7-6 08:44:26

伦德曼/斯特凡BMR
壮观的先生们。非常壮观。
如果我能表达我的喜悦，我将不得不键入大约5000次。

这很有道理，我很尴尬。优化时没有重新创建变量。
因此，在测试了IF和COND方法之后，IF在处理1000个随机数时以3秒的优势获胜。请记住，其中任何一个距离我拥有的都有光年，我在几个小时后停止了处理。

如果结果：

copy


Time: 
15.19 seconds
; 10 forms loaded from #<editor ".../mergesort2.LSP">
_1_$

COND结果：

copy


Time: 
18.02 seconds
; 10 forms loaded from #<editor ".../mergesort2.LSP">
_1_$

在单独的线程中发布合并排序。

BlackBox · 发表于 2022-7-6 08:49:51

李值得赞扬的是我在上面发布的代码，因为他将该产品作为我自己的增强版（在同一帖子的前面，链接在上面）。英雄联盟

... 不过，我很高兴这对你有帮助。

LibertyOne · 发表于 2022-7-6 08:52:51

读了这篇文章后，我有一个问题。在AutoLisp中，为什么subst不工作？

copy

(subst ITEM (nth INDEX LST) LST)

Stefan BMR · 发表于 2022-7-6 08:57:09

尝试

copy

(subst 1 0 '(0 1 0 2 0))

BlackBox · 发表于 2022-7-6 09:00:10

斯特凡是正确的-李也向我提出了这一点，在上面的链接线程。

alanjt · 发表于 2022-7-6 09:03:18

我认为重点是替换第n项，而不是每个匹配项。

[编程交流] 第n个替换（合并排序

发表回复

精选推荐