嵌套列表

Steven P · 发表于 2022-7-5 16:14:31

下午好，提前感谢您的帮助。

我有一个嵌套列表，希望提取列表嵌套部分中的项目，但不确定如何执行。

我想没有人能告诉我该找什么？

例如，我有一个名为mylist的嵌套列表：
（列表0（项目01A项目01B项目01C）列表1（项目1A项目1B项目1C）列表2….）

我可以使用函数（nth x mylist），其中x是列表编号（1给出“list1”），但我如何从该列表中获取项目？（如第1A项或第2C项等）。

再次感谢

ronjonp · 发表于 2022-7-5 16:27:35

它们是您可以使用的示例列表的结构化方式（cadr（成员：

copy

(cadr (member "list2"
      (list "list1" '("item1a" "item1b" "item1c") "list2" '("item2a" "item2b" "item2c")
            "list3" '("item3a" "item3b" "item3c")
           )
     )
)

如果它的结构更像这样，您可以使用（cdr（assoc：

copy

(cdr (assoc "list2"
    '(("list1" ("item1a" "item1b" "item1c"))
      ("list2" ("item2a" "item2b" "item2c"))
      ("list3" ("item3a" "item3b" "item3c"))
     )
    )
)

然后您可以使用vl-some：

copy

(vl-some '(lambda (x)
     (if (= "item2b" x)
       x
     )
   )
  (cadr        (member        "list2"
                (list "list1" '("item1a" "item1b" "item1c") "list2"
                      '("item2a" "item2b" "item2c") "list3" '("item3a" "item3b" "item3c")
                     )
        )
  )
)

Steven P · 发表于 2022-7-5 16:37:21

这对我来说并不适用，但我将查看cadr命令，看看是否可以解决这个问题。

在上面的示例中，这是否允许您指定要返回嵌套列表中的哪一项？我看不出它是怎么做到的

ronjonp · 发表于 2022-7-5 16:48:33

您列表中的数据类型是什么？也许发布实际列表？还要注意，如果这些是字符串，则函数区分大小写。

David Bethel · 发表于 2022-7-5 16:52:44

您可能需要研究（原子）函数-大卫

Steven P · 发表于 2022-7-5 16:59:57

你好

列表中的项目是字符串，其形式如下：

（（项目1（项目1A项目2A项目3A项目4A））（项目2（项目2A））（项目3（项目3A））（项目4（项目4A））（项目5（项目5A项目5B项目5C）））

例程的前面部分组成了列表，这就是它在命令行中的显示方式）

所以在位置y的列表中寻找嵌套的列表项x。

如果我这样做（第2个mylist），它将返回“item3”-主列表名。太好了，反正我以后需要。但是看看如何从列表中选择项目1、2或3。如果有意义的话，可以把第2个命令连接起来。

CDR和CADR说他们只返回列表中的第二项？

或者我可以将嵌套列表分开，然后滚动浏览它吗

（我使用嵌套列表的原因是我不知道每次会有多少个列表，否则我会选择一组简单的列表，填充每个列表，并以更简单的方式查看它们）

ronjonp · 发表于 2022-7-5 17:07:58

（cadr（成员是您的数据结构所需要的。如果还不太晚，我会将其重组为关联列表。

下面是一个使用两个索引号的快速示例。。虽然有很多方法可以剥这只猫的皮

copy

(defun _getsomething (l idx1 idx2) (nth idx2 (cadr (member (nth idx1 l) l))))
(_getsomething
 (list        "list1"        '("item1a" "item1b" "item1c") "list2" '("item2a" "item2b" "item2c") "list3"
'("item3a" "item3b" "item3c")
      )
 2
 2
)

BIGAL · 发表于 2022-7-5 17:22:06

回到使用NTH，你可以在这里直接把它们放在多个层次上作为例子

copy


(setq lst (list "list1" '("item1a" "item1b" "item1c") "list2" '("item2a" "item2b" "item2c")   "list3" '("item3a" "item3b" "item3c")))
(setq num (/ (length lst) 2))
(setq y 0) ;2nd item
(setq x 0)
(repeat num
(setq y 0)
(setq valname (nth x lst))
(setq x (+ x 1))
(setq val1 (nth y (nth x lst)))
(setq val2 (nth (setq y (+ y 1))(nth x lst)))
(setq val3 (nth (setq y (+ y 1))(nth x lst)))
(setq x (+ x 1))
(alert (strcat valname "\n" val1 "\n" val2 "\n" val3))
)

[编程交流] 嵌套列表

发表回复

精选推荐