[原创]删除表的前几个元素

baitang36 · 发表于 2022-7-13 08:43

比如有个表(1 2 3 4 5 6 7 8),想去掉前面的三个元素，可以用repeat循环三次cdr
(setq aa '(1 2 3 4 5 6 7 8))(repeat 3 (setq aa (cdr aa)))
有没有更简单的方法呢？
搜了一下跟cdr有关的保留函数，发现有一个，nthcdr，猜了一下它的参数，发现可以用，与上面的功能是一样的。
(load "c:/00/syz-nth.fas")(setq aa '(1 2 3 4 5 6 7 8))(syz-nthcdr 3 aa)返回(4 5 6 7 8)
还有一个保留函数 nth<-可以很方便的替换表中的某个元素。
用法是：(syz-nth<- 序号  值  表 )

(setq aa '(1 2  3 4 5 6 7 8 9) )
(syz-nth<- 5  3  aa );执行后a变成((1 2 3 4 5 3 7 8 9)
从0开始第5个数字6被替换成了3

用这个两个保留函数前，先加载 syz-nth.fas

wzg356 · 发表于 2022-7-13 09:54

还是写吧…

crtrccrt · 发表于 2022-7-13 17:03

(setq aa '(1 2 3 4 5 6 7 8))(setq aa (cdddr aa));;;===(4 5 6 7 8)

yyzhan12 · 发表于 2022-7-13 19:37

大师又出大作了,给力

caoliu023 · 发表于 2022-7-14 14:47

很给力

kkq0305 · 发表于 2022-8-4 00:27

(defun nthcdr (n lst / x)
(setq x -1)
(vl-remove-if '(lambda (a) (< (setq x (1+ x)) n)) lst))

llsheng_73 · 发表于 2022-8-5 11:27

butlast返回删除表的最后一个元素后的新表，有没有直接删除任意位置元素的内部函数？

账号		自动登录	找回密码
密码			注册

[经验] [原创]删除表的前几个元素

本帖子中包含更多资源

评分

点评