列表转字符串

狂刀lxx

还有更短的么？有

(defun tt (lst str)
   (setq a (car lst) b (cdr lst))(if b (strcat a "," (tt b str)) a)
)

tengte

我认为，fsxm的程序好，精简，完善。

;;连结表中字符串
(defun Fsxm-join (lst str)
  (substr (apply 'strcat (mapcar '(lambda (a) (strcat str a)) lst))
   (1+ (strlen str))
  )
)

狂刀lxx的第二程序也还错，还用了递归调用，不过最好把a和b说明成局部变量，还有就是lst为nil时，两个程序的返回值不同，前者为""，后者为nil。

(defun tt (lst str / a b)
   (setq a (car lst) b (cdr lst))(if b (strcat a "," (tt b str)) a)
)

aicr317

都是八仙过海啊！

Andyhon

狂刀lxx的第二程序,字串个数短时最优
但随着字串个数变多时效率递减
依本例时效率表现最佳,个数增至8-10倍时效率约略相等

飞诗(fsxm)

(defun fsxm-join (lst str / b)
 (setq b (car lst))
 (foreach a lst (setq b (strcat b str a)))
 b
)

再来一个用foreach速度可能更快点。