[AlexZh]

Здравствуйте!

Скажите, а как можно список привести в строку с запятыми?

Например, есть список ("1" "2" "3" и т.д) и надо стелать строку (1, 2, 3, и т.д. )


Голову уже два дня ломаю(

[Кулик Алексей aka kpblc]

Точно так же, как и всегда - разницы по обработке списков нет никакой ни в 2000, ни в 2016

Код:

[Выделить все]

 _$ (setq lst '("1" "2" "3" "test"))
("1" "2" "3" "test")
_$ (strcat (car lst) (apply 'strcat (mapcar '(lambda(x) (strcat "," x)) (cdr lst))))
"1,2,3,test"

[AlexZh]

Спасибо большое!

[gomer]

Код:

[Выделить все]

 (substr (apply 'strcat (mapcar '(lambda(x) (strcat "," x)) '("1" "2" "3" "test"))) 2)