marting 发表于 2018-2-9 20:10:19

(XD::List:Reverse)表元素指定位置间元素Reverse

本帖最后由 marting 于 2018-2-9 20:12 编辑

从下面这个帖子写的,
http://bbs.xdcad.net/thread-714613-1-1.html





(defun XD::List:Reverse (pts from to / lst0 lst1 lst2)
(if (and (not from) (not to))
    (reverse pts)
    (progn (if (not from)
             (setq from 0)
         )
         (if (not to)
             (setq to (1- (length pts)))
         )
         (setq lst0 (XD::List:Nth-- pts from nil)
               lst1 (XD::List:Nth++ pts from (1+ (- to from)))
               lst2 (XD::List:Nth++ pts (1+ to) nil)
         )
         (append lst0 (reverse lst1) lst2)
    )
)
)


wzjck01 发表于 2022-6-25 17:30:08

学习,学习.

qxlonmsn 发表于 2022-6-28 14:22:29

大佬威武啊

qxlonmsn 发表于 2022-7-13 08:23:36

感觉最近晓东论坛老是打不开现在就没有啥人 发帖了   都变冷清了

tanxindong 发表于 2024-8-22 07:56:40

大佬威武啊{:1_12:}
页: [1]
查看完整版本: (XD::List:Reverse)表元素指定位置间元素Reverse