lambda 还有不明白之处

amwkto2011

1. (setq t1 '(3 5 6)
   
2.        t2 '(7 8 9))
   
3. (setq tt (append t1 t2))
   
4. (substr (apply 'strcat (mapcar '(lambda (x)(strcat "," x)) (mapcar 'rtos tt)))2)
   
5. ;这样成功返回了"3,5,6,7,8,9"
   
6. ;如果我不想(substr (apply 'strcat这样弄
   
7. ;(apply '这个地方直接用一个无名函数，返回"3,5,6,7,8,9" 要怎么弄

(setq t1 '(3 5 6)<br />        t2 '(7 8 9))<br /> (setq tt (append t1 t2))<br /> (substr (apply 'strcat (mapcar '(lambda (x)(strcat "," x)) (mapcar 'rtos tt)))2)<br /> ;这样成功返回了"3,5,6,7,8,9" <br /> ;如果我不想(substr (apply 'strcat这样弄<br /> ;(apply '这个地方直接用一个无名函数，返回"3,5,6,7,8,9" 要怎么弄

/db_自贡黄明儒_

理解为没有名字的函数就可以了http://bbs.xdcad.net/thread-675789-2-1.html 30楼

Lispboy

(mapcar 'vl-princ-to-string (append t1 t2))

wzg356

(setq y nil)
(apply 'strcat
        (cdr
                (foreach x(reverse(mapcar 'vl-princ-to-string '(3 5 6 7 8 9)))
                        (setq y(cons ","(cons x y)))
                )
        )
)

amwkto2011

/db_自贡黄明儒_ 发表于 2014-12-15 15:03
理解为没有名字的函数就可以了http://bbs.xdcad.net/thread-675789-2-1.html 30楼

黄大师，真还不会这个函数，去学习下了，感谢

amwkto2011

Lispboy 发表于 2014-12-15 15:31
(mapcar 'vl-princ-to-string (append t1 t2))

学习了，谢谢

amwkto2011

wzg356 发表于 2014-12-15 15:34
(setq y nil)
(apply 'strcat
        (cdr

学习了，谢谢

amwkto2011

wzg356 发表于 2014-12-15 15:34
(setq y nil)
(apply 'strcat
        (cdr

将表的元素顺序倒置后返回

(reverse 起到什么作用了，为什么要用它

Lispboy

amwkto2011 发表于 2014-12-15 16:36
将表的元素顺序倒置后返回(reverse 起到什么作用了，为什么要用它

比如表： '("1" "2" "3" "4" "5" "6")
reverse后， '("6" "5" "4" "3" "2" "1")

然后循环CONS，变成  '("6" "," "5" "," "4" "," "3" "," "2" "," "1" ",")

在reverse后cdr,就把第一个，去掉了。然后 strcat，明白了吗？

amwkto2011

Lispboy 发表于 2014-12-15 16:43
比如表： '("1" "2" "3" "4" "5" "6")
reverse后， '("6" "5" "4" "3" "2" "1")

原来是这样哦，明白了，再次谢谢各位指点了

无痕

2. (setq t1 '(3 5 6)
   
3.       t2 '(7 8 9)
   
4. )
   
5. (setq tt (append t1 t2))
   
6. (substr        (eval (cons 'strcat
   
7.                (mapcar '(lambda (x) (strcat "," x)) (mapcar 'rtos tt)))
   
8.         )
   
9.         2
   
10. )

(setq t1 '(3 5 6)<br />       t2 '(7 8 9)<br /> )<br /> (setq tt (append t1 t2))<br /> (substr        (eval (cons 'strcat<br />                (mapcar '(lambda (x) (strcat "," x)) (mapcar 'rtos tt)))<br />         )<br />         2<br /> )

amwkto2011

无痕 发表于 2014-12-16 01:10

谢谢了，又学会了一招

wzg356

用vl-princ-to-string好一点，把表、逗号设成参数，defun定义函数名就成通用函数：表转为按指定字符分割的字符串。

amwkto2011

wzg356 发表于 2014-12-16 11:06
用vl-princ-to-string好一点，把表、逗号设成参数，defun定义函数名就成通用函数：表转为按指定字符分割的 ...

大师，这个有点不会了，能示例一个不，感谢了

wzg356

amwkto2011 发表于 2014-12-16 17:19
大师，这个有点不会了，能示例一个不，感谢了

别叫我大师用defun为4楼的表达式取一个函数名就行了

;;;单层表lst的元素按指定分隔符rr连接呈一个字符串
(defun list2str (lst rr / y x)
        (setq y nil)
        (apply 'strcat
        (cdr
            (foreach x(reverse(mapcar 'vl-princ-to-string lst))
                    (setq y(cons rr (cons x y)))
            )
        )
    )
)
;(list2str (LIST 1 "A" 2 "B" 3 "C" ) ":") ;===="1:A:2:B:3:C"

与这个应该一样http://bbs.xdcad.net/thread-675789-1-1.html