77077 发表于 2014-10-11 13:28:29

表中元素全部转化为字符

;表中元素全部转化为字符
;(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"))(defun list2string (lst)
(mapcar
   '(lambda (x)
   (if (listp x)
       (list2string x)
       (vl-princ-to-string x)
   )   
   )
   lst
   )
)

springwillow 发表于 2014-10-11 14:30:29

递归算法，不错！
页: [1]
查看完整版本: 表中元素全部转化为字符