迭代以创建列表。

Serabis · 发表于 2022-7-6 07:09:31

大家好！

所以我对lisp还比较陌生，我对lisp中的列表只了解一点点，但我需要通过while循环创建一个列表。我的问题是，每次我想添加到列表时都使用相同的变量，这导致列表永远不会大于一。我猜这是指针问题，我想知道什么是变通方法。以下是一些示例代码：

copy

 
(defun listcopy (list1)
   (setq index1 0)
   (setq listlength 10)
   (setq newlist '())
   (while (< index1 listlength)
       (setq current (nth index1 list1))
       (setq newcurrent (substr current 5))
       (insertnth newcurrent index1 newlist)
       (1+ index1)
   );end while
);end function
(defun insertnth (element num list1)
   (if (and list1 (< 0 num))
       (cons (car list1) (insertnth element (1- num) (cdr list1)))
       (cons element list1)
   );end if
);end function

这是代码的简化版本：我实际上做的不仅仅是去掉字符串的前5个字母，但这是一个很好的例子。谢谢你的帮助！

bgingerich · 发表于 2022-7-6 07:18:24

尝试在“（insertnth…”之后添加以下代码

一个建议。更改（

Serabis · 发表于 2022-7-6 07:24:45

很好，但是在看了我的“实际”代码之后，我已经在那里了，所以这不是问题所在-_-

bgingerich · 发表于 2022-7-6 07:31:20

这两个建议或只是（

pBe · 发表于 2022-7-6 07:37:13

copy


....
[b](setq newlist [/b](insertnth newcurrent index1 newlist)[b])[/b]
[b](setq index1[/b] (1+ index1)[b])[/b]
...

Lee Mac · 发表于 2022-7-6 07:44:06

正如pBe正确指出的那样，问题是因为没有将insertnth函数或1+函数的返回值赋给变量。

但是，您的任务可以使用以下工具执行：

copy

(mapcar '(lambda ( x ) (substr x 5)) list1)

此外，请记住本地化变量。

irneb · 发表于 2022-7-6 07:47:17

此外，如果您仍然想使用命令循环（即，尚未理解李的函数），我建议只需使用cons添加到新列表的前面，然后在末尾执行相反的操作。这将比使用insertnth高效得多。例如。
或者从最后一项向下循环：。

copy

Serabis · 发表于 2022-7-6 07:57:04

谢谢大家！您的所有实现都运行良好。

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

很乐意帮忙。lisp（尤其是AutoLisp）需要记住的一点是，列表是作为链表实现的。因此，指向列表中间某个位置的索引需要时间才能到达，它必须从开始运行（或者，如果它是作为双链接列表实现的，则从列表的末尾运行），而不是在其他语言中使用数组。因此，最有效的方法是将您的程序设计为尝试忽略索引本身，即简单地遍历列表并修改每个项（正如Lee的代码所做的那样）。

Serabis · 发表于 2022-7-6 08:07:00

啊，我明白了。不过，为了更好地解释我的情况，我需要列出一个清单，上面列出所有的。在目录中的dwg文件中，使用解析算法从文本字符串中提取整数，然后使用该整数决定是否将其包含在新的“理想”图形名称列表中。因此，我觉得也许更好的实现不是使用InsertNth插入到一个新列表中，而是使用一些函数removen，这样当我在列表中发现一个“不需要的”元素时，我可以删除它，从而避免在过程中创建一个新列表。

[编程交流] 迭代以创建列表。

发表回复

精选推荐