XD::LIST:INSERT-NTH

newer

1. ;; ------------------------------------------------------------------------
   
2. ;;; 函数名称 / Function Name: XD::LIST:INSERT-NTH
   
3. ;;;
   
4. ;;; 【功能说明 / Description】
   
5. ;;;     在列表 lst 的第 n 个位置插入元素 a，返回插入后的新列表。
   
6. ;;;     索引从 0 开始计数。
   
7. ;;;
   
8. ;;; 【参数说明 / Parameters】
   
9. ;;;     a   - (any) 要插入的元素
   
10. ;;;     lst - (list) 原始列表
    
11. ;;;     n   - (integer) 插入位置索引（从0开始）
    
12. ;;;
    
13. ;;; 【返回值 / Return Value】
    
14. ;;;     (list) 插入元素后的新列表
    
15. ;;;
    
16. ;;; 【依赖函数 / Dependencies】
    
17. ;;;     - nth    : 访问列表中指定索引的元素
    
18. ;;;     - length : 获取列表长度
    
19. ;;;     - cons   : 构造列表
    
20. ;;;     - reverse: 反转列表
    
21. ;;;     - repeat : 重复执行代码块
    
22. ;;;
    
23. ;;; 【备注 / Notes】
    
24. ;;;     - 如果 n 大于列表长度，则相当于在列表末尾插入元素。
    
25. ;;;     - 该函数通过两次遍历原列表，构造新列表。
    
26. ;;;
    
27. (defun XD::LIST:INSERT-NTH (a lst n / lst2 j)
    
28.   (setq j 0)
    
29.   (setq lst2 nil)
    
30.   ;; 复制 lst 的前 n 个元素到 lst2
    
31.   (repeat n
    
32.     (setq lst2 (cons (nth j lst) lst2))
    
33.     (setq j (+ j 1))
    
34.   )
    
35.   ;; 插入元素 a
    
36.   (setq lst2 (cons a lst2))
    
37.   ;; 复制 lst 剩余元素到 lst2
    
38.   (repeat (- (length lst) n)
    
39.     (setq lst2 (cons (nth j lst) lst2))
    
40.     (setq j (+ j 1))
    
41.   )
    
42.   ;; 反转 lst2 得到正确顺序的新列表
    
43.   (reverse lst2)
    
44. )
    

;; ------------------------------------------------------------------------<br /> ;;; 函数名称 / Function Name: XD::LIST:INSERT-NTH<br /> ;;;<br /> ;;; 【功能说明 / Description】<br /> ;;;     在列表 lst 的第 n 个位置插入元素 a，返回插入后的新列表。<br /> ;;;     索引从 0 开始计数。<br /> ;;;<br /> ;;; 【参数说明 / Parameters】<br /> ;;;     a   - (any) 要插入的元素<br /> ;;;     lst - (list) 原始列表<br /> ;;;     n   - (integer) 插入位置索引（从0开始）<br /> ;;;<br /> ;;; 【返回值 / Return Value】<br /> ;;;     (list) 插入元素后的新列表<br /> ;;;<br /> ;;; 【依赖函数 / Dependencies】<br /> ;;;     - nth    : 访问列表中指定索引的元素<br /> ;;;     - length : 获取列表长度<br /> ;;;     - cons   : 构造列表<br /> ;;;     - reverse: 反转列表<br /> ;;;     - repeat : 重复执行代码块<br /> ;;;<br /> ;;; 【备注 / Notes】<br /> ;;;     - 如果 n 大于列表长度，则相当于在列表末尾插入元素。<br /> ;;;     - 该函数通过两次遍历原列表，构造新列表。<br /> ;;;<br /> (defun XD::LIST:INSERT-NTH (a lst n / lst2 j)<br />   (setq j 0)<br />   (setq lst2 nil)<br />   ;; 复制 lst 的前 n 个元素到 lst2<br />   (repeat n<br />     (setq lst2 (cons (nth j lst) lst2))<br />     (setq j (+ j 1))<br />   )<br />   ;; 插入元素 a<br />   (setq lst2 (cons a lst2))<br />   ;; 复制 lst 剩余元素到 lst2<br />   (repeat (- (length lst) n)<br />     (setq lst2 (cons (nth j lst) lst2))<br />     (setq j (+ j 1))<br />   )<br />   ;; 反转 lst2 得到正确顺序的新列表<br />   (reverse lst2)<br /> )<br />