返回表中两个索引之间的表元素（包括两个索引）

newer · 发表于 2016-6-7 19:13:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun XD::List:<N> (lst inx1 inx2)
(xd::list:n+ (xd::list:n- lst (1+ inx2)) inx1)
)

WhoCanSay · 发表于 2016-6-8 13:12:36

本帖最后由 WhoCanSay 于 2016-6-8 13:22 编辑

;;(xd::list:<n> '("ab" "cd" "ef" "ge") 2 3)=>("ef" "ge")
(defun (xd::list:<n> (lst inx1 inx2 / L)
  (repeat inx1 (setq lst (cdr lst)))
  (repeat (1+ (- inx2 inx1)) (setq L (cons (car lst) L)) (setq lst (cdr lst)))
  (REVERSE L)
)

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

[表] 返回表中两个索引之间的表元素（包括两个索引）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分