求个函数：以关键词 替换\添加\删除点对表中的元素

77077

;以关键词 替换\添加\删除点对表中的元素

替换BC
;(uplstBYindex '(("A" . 1) ("B" . 2) ("C" . 3) ("D" . 4)) '(("B" . 10)("C" . 11)))
;=>'(("A" . 1) ("B" . 10) ("C" . 11) ("D" . 4))

添加EF
;(uplstBYindex '(("A" . 1) ("B" . 2) ("C" . 3) ("D" . 4)) '(("E" . 10) ("F" . 11)))
;=>'(("A" . 1) ("B" . 10) ("C" . 11) ("D" . 4) ("E" . 10) ("F" . 11))

删除AC
;(uplstBYindex '(("A" . 1) ("B" . 2) ("C" . 3) ("D" . 4)) '(("A" . NIL) ("C" . NIL)))
;=>'(("B" . 10) ("D" . 4))


(if (在旧表中能找到关键词)
  (if (= (cdr 新元素) nil)
    (删除模式)
    (更新模式)
  )
  (添加模式)
)

不知道我的表述清楚没有!

77077

半成品
;(tt '(("A" . 1) ("B" . 2) ("C" . 3) ("D" . 4)) '("B" . 10))
;=>'(("A" . 1) ("B" . 10) ("C" . 11) ("D" . 4))
;删除AC
;(tt '(("A" . 1) ("B" . 2) ("C" . 3) ("D" . 4)) '("C"))
;=>'(("B" . 10) ("D" . 4))

2. 
   
3. (defun tt (l1 a / ll lt)
   
4.   (foreach n l1
   
5.     (if (= (car n) (car a))
   
6.       (if (cdr a)
   
7.          (setq lt (cons (car n) (cdr a))
   
8.                ll (cons lt ll)
   
9.            )
   
10.       )
    
11.      (setq ll (cons n ll))
    
12.     )
    
13.   )
    
14.   (reverse ll)
    
15. )
    

<br /> (defun tt (l1 a / ll lt)<br />   (foreach n l1<br />     (if (= (car n) (car a))<br />       (if (cdr a)<br />          (setq lt (cons (car n) (cdr a))<br />                ll (cons lt ll)<br />            )<br />       )<br />      (setq ll (cons n ll))<br />     )<br />   )<br />   (reverse ll)<br /> )<br />

wowan3344

这个函数对楼主来说，应该不难！

你自己先写出来， 如果有优化的空间，大家再帮你优化。

77077

就是写不出来哈，修改和删除都弄完了，我不知道怎么弄添加这个选项啊~~~
问题是，怎么判断oldl已经含有newl的项目呢？

2. 
   
3. (defun tt (oldl newl / tt1 b)
   
4. (defun tt1 (oldl a / ll lt)
   
5.   (foreach n oldl
   
6.     (if (= (car n) (car a))
   
7.       (if (cdr a)
   
8.          (setq lt (cons (car n) (cdr a))
   
9.                ll (cons lt ll)
   
10.                )
    
11.       )
    
12.      (setq ll (cons n ll))
    
13.     )
    
14.   )
    
15. (reverse ll)
    
16. )
    
17. (while newl
    
18.     (setq b (car newl)
    
19.              oldl (tt1 oldl b)
    
20.              newl (cdr newl)
    
21.              )
    
22. )
    
23. oldl
    
24. )
    

<br /> (defun tt (oldl newl / tt1 b)<br /> (defun tt1 (oldl a / ll lt)<br />   (foreach n oldl<br />     (if (= (car n) (car a))<br />       (if (cdr a)<br />          (setq lt (cons (car n) (cdr a))<br />                ll (cons lt ll)<br />                )<br />       )<br />      (setq ll (cons n ll))<br />     )<br />   )<br /> (reverse ll)<br /> )<br /> (while newl<br />     (setq b (car newl)<br />              oldl (tt1 oldl b)<br />              newl (cdr newl)<br />              )<br /> )<br /> oldl<br /> )<br />

命令:(tt '(("A" . 1) ("B" . 2) ("C" . 3) ("D" . 4)) '(("B" . 10)("C" . 11)))
=》(("A" . 1) ("B" . 10) ("C" . 11) ("D" . 4))
命令: (tt '(("A" . 1) ("B" . 2) ("C" . 3) ("D" . 4)) '(("B" . 10)("C")))
=》(("A" . 1) ("B" . 10) ("D" . 4))

wowan3344

等不及了!

2. ;(setq lst '(("A" . 1) ("B" . 2) ("C" . 3) ("D" . 4)) )
   
3. ;删A改B加E
   
4. ;(t11 lst '(("A" . nil)("B" . 0)("E" . 5)))
   
5. ;;对组码型表进行 "删除" 、"替换" 、"增加" 的处理
   
6. (defun t11 (o n / c)
   
7.     (mapcar
   
8.         ''((a)
   
9.             (if (setq c (assoc (car a) o))
   
10.                 (if (cdr a)
    
11.                     (setq o (subst a c o))
    
12.                     (setq o (vl-remove-if ''((b)(= (car a) (car b))) o))
    
13.                 )
    
14.                 (setq o (cons a o))
    
15.             )
    
16.         )
    
17.         n
    
18.     )
    
19.     o
    
20. )

;(setq lst '(("A" . 1) ("B" . 2) ("C" . 3) ("D" . 4)) )<br /> ;删A改B加E<br /> ;(t11 lst '(("A" . nil)("B" . 0)("E" . 5))) <br /> ;;对组码型表进行 "删除" 、"替换" 、"增加" 的处理<br /> (defun t11 (o n / c) <br />     (mapcar<br />         ''((a)<br />             (if (setq c (assoc (car a) o))<br />                 (if (cdr a)<br />                     (setq o (subst a c o))<br />                     (setq o (vl-remove-if ''((b)(= (car a) (car b))) o))<br />                 )<br />                 (setq o (cons a o))<br />             )<br />         )<br />         n<br />     )<br />     o<br /> )

77077

wowan3344 发表于 2014-12-1 23:54
等不及了!

看不懂你的，不过抄了点你的代码，弄了一个
(defun tt1 (oldl newl / a b n x)
  (foreach n newl
    (if (setq a (assoc (car n) oldl))
      (if (cdr n)
          (setq oldl (subst n a oldl))
          (setq oldl (vl-remove-if '(lambda(x) (= (car a) (car x))) oldl))
      )
      (setq oldl (cons n oldl))
    )
  )
  oldl
)
;;对组码型表进行 "删除" 、"替换" 、"增加" 的处理
命令: (tt1 '(("A" . 1) ("B" . 2) ("C" . 3) ("D" . 4)) '(("A" . nil)("B" . 0)("E" . 5)))
(("E" . 5) ("B" . 0) ("C" . 3) ("D" . 4))

ivde

assoc+subst