表中元素全部转化为字符

77077

表中元素全部转化为字符-递归法

2. ;表中元素全部转化为字符
   
3. ;(list2string '(("a" 1) ("b" 2) ("多层表" ("d" 56 ("e" 5 ("f" 56))))  3 2 "中文" ("English")))
   
4. ;=>(("a" "1") ("b" "2") ("多层表" ("d" "56" ("e" "5" ("f" "56")))) "3" "2" "中文" ("English"))
   
5. (defun list2string (lst)
   
6. (mapcar
   
7.    '(lambda (x)
   
8.      (if (listp x)
   
9.        (list2string x)
   
10.        (vl-princ-to-string x)
    
11.      )     
    
12.    )
    
13.    lst
    
14.    )
    
15. )

;表中元素全部转化为字符<br /> ;(list2string '(("a" 1) ("b" 2) ("多层表" ("d" 56 ("e" 5 ("f" 56))))  3 2 "中文" ("English")))<br /> ;=>(("a" "1") ("b" "2") ("多层表" ("d" "56" ("e" "5" ("f" "56")))) "3" "2" "中文" ("English"))<br /> (defun list2string (lst)<br /> (mapcar <br />    '(lambda (x) <br />      (if (listp x)<br />        (list2string x)<br />        (vl-princ-to-string x)<br />      )     <br />    ) <br />    lst<br />    )<br /> )

caozhengbai

这个有什么用途？

77077

没什么用途，就是好玩~

xvjiex

感谢分享表中元素全部转化为字符！