scheme - 将字符串列表合并为逗号分隔的字符串

Question

我需要编写一个软件，给定一个字符串列表，返回一个由输入列表元素的逗号分隔串联组成的新字符串。

(comma-con (list "a" "b" "c"))  ;=> "a,b,c"

我很想编写Scheme惯用代码。

到目前为止，我写的是:

(define (comma-con l)
   (foldr
         (λ (x y) (if (string? y) (string-append x "," y) x))
         '()
         l))

这可行，但看起来有点脏。有没有办法以更好的方式编写它，例如避免“如果”？

Answer 1

尝试使用string-join ，它完全满足您的需要，并且尽可能地惯用:

(string-join '("a" "b" "c") ",")
=> "a,b,c"

无论如何，如果您想使用折叠来解决问题，这是一个更干净的解决方案(假设输入列表非空):

(define (comma-con lst)
  (foldl (λ (e acc) (string-append acc "," e))
         (first lst)
         (rest  lst)))