分析列表

amir0914 · 发表于 2022-7-5 16:10:01

大家好，

如何将列表解析为四个元素：

列表：（x1 x2 x3 x4 x5 x6 x7 x8 x9 x10……）

转换为：

列表1=（（x1 x2 x3 x4）（x5 x6 x7 x8）（x9 x10 x11 x12）（x13 x14 x15 x16）……）

提前感谢

Tharwat · 发表于 2022-7-5 16:27:30

你好

您没有声明您在该列表中拥有什么类型的项目，所以我假设它们同时是数字。
下面是我使用递归过程的尝试。

copy


(defun 4items (lst)
 (if lst (cons (if (> (length lst) 3) (list (car lst) (cadr lst) (caddr lst) (nth 3 lst)) lst) (4items (cddddr lst))))
 )

上述代码的使用：

copy


(4items '(1 2 3 4 5 6 7 8 9 10 11 12 13))

amir0914 · 发表于 2022-7-5 16:47:33

嗨，非常感谢你。
是的，你想当然了。，它们都是列表中的数字，我的问题已经解决了。
再次感谢你的帮助。

Tharwat · 发表于 2022-7-5 17:01:58

很高兴听到这个消息。

不客气。

Grrr · 发表于 2022-7-5 17:11:00

FWIW，Lee Mac有这个

我也想玩：

copy


; _$ (foo 4 (mapcar 'chr (vl-string->list "ABCDEFGHIJKLMNOPQRSTUVWXYZ")))
; (("A" "B" "C" "D") ("E" "F" "G" "H") ("I" "J" "K" "L") ("M" "N" "O" "P") ("Q" "R" "S" "T") ("U" "V" "W" "X") ("Y" "Z"))
(defun foo ( n L / r )
 (repeat n (and L (setq r (cons (car L) r))) (setq L (cdr L)) r)
 (if L (cons (reverse r) (foo n L)) (list (reverse r)))
)

[编程交流] 分析列表

发表回复

精选推荐

浏览过的版块