自定义nthcdr

自贡黄明儒 · 发表于 2022-9-21 10:37

(tranf 'nthcdr)

(nthcdr 7 '(0 1 2 3 4 5 6 7 8)) ;==>(7 8)

(defun nthcdr1 (n L)
(repeat (/ n 4) (setq L (cddddr L)))
(repeat (rem n 4) (setq L (cdr L)))
)
(nthcdr1 7 '(0 1 2 3 4 5 6 7 8));==>(7 8)

434939575 · 发表于 2022-9-21 13:46

大佬高产。感谢分享。

xyp1964 · 发表于 2022-9-21 14:06

(defun nthcdr (n lst) (repeat n (setq lst (cdr lst))))
(nthcdr 5 '(0 1 2 3 4 5 6 7 8)) ;==> (5 6 7 8)

tigcat · 发表于 2022-9-21 15:39

谢谢两位大佬分享源码

guosheyang · 发表于 2022-9-22 08:53

经测试数据量大时还是内部函数那个效率稍点就是不知道稳定不

e2002 · 发表于 2022-9-22 11:55

其实直接写个list切片函数即可（list_slice iFrom iTo , 负值则从右向左）

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

[函数] 自定义nthcdr

点评

点评

点评