关于Mapcar的使用?

wzh · 发表于 2004-5-31 20:35:00

我在使用mapcar时遇到这样的问题，就是在mapcar中间修改表的内容后，比如x取表的第1个数（"1"），执行完某些功能后，将表的第1、 2个数（"1" 、"2"）删除，结果x在第2次取数时仍然按旧表中的内容取原有的第2个数（"2"已被删除），而不是取新表的第一个数（"3"旧表的第3个数），为什么？能让它在第2次取数时取"3"吗？
(defun c:aa()
   (setq Slist (list "1" "2" "3" "4" "5" "6" "7" "8" "9" "0"))
   (mapcar '(lambda (X)
   (setq a (1+ 2))
   (setq Slist (cdr (cdr Slist)))
   )
   Slist
   )
)

meflying · 发表于 2004-5-31 21:38:00

看不明白你想做什么。。。你的程序就更看不明白了，好象什么都不做
看看下面改的，其实已经是你说的读“3”了，只不过mapcar函数一开始就读取了Slist整个表，以后就不读了，所以后面的执行跟Slist无关
就想repeat函数，假如n是5，你使用(repeat n ...即使过程中将n变为了别的数字，这个循环还是循环5次，
你还是说说你要做什么，肯定有办法解决的，要你去适应语言，而不能让语言来适应你
(defun c:aa()
   (setq Slist (list "1" "2" "3" "4" "5" "6" "7" "8" "9" "0"))
   (mapcar '(lambda (X)
   (setq a (1+ 2))
   (setq Slist (cdr (cdr Slist)))
   (Princ "\n")
   (princ (car Slist))
   )
   Slist
   )
)

秋枫 · 发表于 2004-5-31 21:38:00

不能。这个函数引用的是表的值而不是表的指针。

wzh · 发表于 2004-5-31 22:09:00

我只是把问题简化了，实际上我要完成的是：
Slist是一个嵌套表'(("AAA" "BBB" ) ("CCC" "DDD") ("ABC" "BBB") ("CDF" "BBB")......)，我需要将第2个参数相同的表合并，得到如下结果：
'(("AAA,ABC,CDF" "BBB") ("CCC" "DDD"))
其实在我的程序中，mapcar中还嵌套了一个mapcar，不好意思，没把问题讲清。
原程序是这样的：
(mapcar '(lambda (X);将相同名称和型式的参数合并
   (setq L02 (nth 1 X))
   (setq NameLst (cdr NameLst))
   (mapcar '(lambda (Y)
(if (member L02 Y)
(progn
(setq L01 (strcat (nth 0 X) "," (nth 0 Y)))
   (setq X (subst L01 (nth 0 X) X))
   (setq NameLst (vl-remove Y NameLst))
);progn
   );if
   );lambda1
   NameLst
);mapcar1
   (setq TmpList (append TmpList (list X)))
   );lambda2
   NameLst
);mapcar2

秋枫 · 发表于 2004-5-31 22:15:00

先不说楼主的函数是否有意义。我来就事论事。想要改变值的引用方式，AutoLISP中没有直接的办法，只能使用引用符号的方式来模拟指针类的引用。因此，达到你要求的效果，需要自己改写Mapcar函数。首先举个改变参数值的例子，比如，类似于C语言中的i++, ++i, 你可以通过对符号的引用改变符号的值：

copy


(defun ++ (x)
   (set x (1+ (eval x)))
);;; test ++(setq a 3)
(++ 'a)
(++ 'a)
(princ a)

符合你要求的Mapcar函数只能自己改写：

copy


(defun mapcar2 (func lstsym / lst rt i)
   (setq i 0)
   (while ((("AAA,ABC,CDF" "BBB") ("CCC" "DDD"))
;;;
(defun test (lst / nlst)
   (mapcar '(lambda(x)(setq xx (cadr x))
           (if (not(apply 'or (mapcar '(lambda(y)(setq yy (cadr y))
      (if (and xx yy (= xx yy))
         (setq nlst (subst (list (strcat (car y) "," (car x)) yy) y nlst))
         nil
         )
      )
             nlst)))
               (setq nlst (cons x nlst))
               )
       ) lst)
   (reverse nlst)
   )

wzh · 发表于 2004-5-31 22:34:00

[URL=http://wpa.qq.com/msgrd?V=1&Uin=52481028&Site

关于Mapcar的使用?

发表回复

精选推荐