如何在方案中将字符串列表转换为一个字符串？

Question

例如我有(list "a" "1" "b" "2" "c" "3")。

现在我想把这个列表变成一个"a1b2c3"。

我该怎么做？

谢谢。

Answer 1

(apply string-append (list "a" "1" "b" "2" "c" "3"))或(string-append* "" (list "a" "1" "b" "2" "c" "3"))应该工作。请参阅：http://docs.racket-lang.org/reference/strings.html

如果你想要一个程序要做到这一点，你可以随便写(define (strings->string sts) (apply string-append sts))

Answer 2

不要重新发明轮子！在球拍，有特别存在一个程序，这和它的称为string-join：

(string-join '("a" "1" "b" "2" "c" "3") "") 
=> "a1b2c3" 

引述documentation：

(string-join strs     
      [sep     
       #:before-first before-first     
       #:before-last before-last    
       #:after-last after-last]) → string? 

strs : (listof string?) 
sep : string? = " " 
before-first : string? = "" 
before-last : string? = sep 
after-last : string? = "" 

追加字符串strs，在每对串之间插入sep可疑交易报告。 before-last，before-first和after-last类似于add-between的输入：它们分别指定最后两个字符串，前缀字符串和后缀字符串之间的替代分隔符。