用法
评论
建议
取 消
确 定
(defun list:move (lst n) "列表循环移动" (repeat (abs n) (if (minusp n) (setq lst (append (list (last lst)) (list:rtrim lst 1))) (setq lst (append (cdr lst) (list (car lst)))))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新