表中元素全部转化为字符

77077

;表中元素全部转化为字符
;(list2string '(("a" 1) ("b" 2) ("多层表" ("d" 56 ("e" 5 ("f" 56))))  3 2 "中文" ("English")))
;=>(("a" "1") ("b" "2") ("多层表" ("d" "56" ("e" "5" ("f" "56")))) "3" "2" "中文" ("English"))

2. (defun list2string (lst)
   
3. (mapcar
   
4.    '(lambda (x)
   
5.      (if (listp x)
   
6.        (list2string x)
   
7.        (vl-princ-to-string x)
   
8.      )     
   
9.    )
   
10.    lst
    
11.    )
    
12. )

(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 /> )

springwillow

递归算法，不错！