在Racket中列出字符串转换

Question

如何将列表转换为DrRacket中的字符串？例如,如何将'(红黄蓝绿)转换为"红黄蓝绿"？我尝试使用list-> string但这似乎只适用于字符.

Answer 1

这里的技巧是在作为输入接收的符号列表上进行映射,将每个符号依次转换为字符串,从而在除了最后一个之外的每一个之间添加一个空格.像这样的东西:

(define (slist->string slst)
  (cond ((empty? slst) "")
        ((empty? (rest slst)) (symbol->string (first slst)))
        (else (string-append (symbol->string (first slst))
                             " "
                             (slist->string (rest slst))))))

甚至更简单,使用更高阶的程序:

(define (slist->string slst)
  (string-join (map symbol->string slst) " "))

无论哪种方式,它都按预期工作:

(slist->string '(red yellow blue green))
=> "red yellow blue green"

而且要彻底,如果输入列表是字符串列表(不是问题中的符号),答案是:

(define strlist (list "red" "yellow" "blue" "green"))
(string-join strlist " ")
=> "red yellow blue green"

Answer 2

Racket支持许多实用功能,使这一切变得简单.如果您只想查看列表中的内容,您可能会对"显示"感到满意.如果你不关心parens,你可以使用字符串连接.

#lang racket

(define my-list '(a big dog))

;; the easy way (has parens):
(~a my-list)

;; slightly harder
(string-join (map ~a my-list) " ")