在球拍中列表到字符串的转换

Question

如何在DrRacket中将列表转换为字符串？例如，如何将'（红色黄色蓝色绿色）转换为“红色黄色蓝色绿色”？我尝试使用list-> string，但这似乎仅适用于字符。

Answer 1

这里的技巧是映射到作为输入接收的symbols的列表上，依次将每个转换为字符串，并注意在每个除最后一个之间添加一个空格。像这样的东西：

(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支持许多实用程序功能，可简化此操作。如果您只想查看列表中的内容，则可能只对“显示”感到满意。如果您担心没有括号，可以使用字符串连接。

#lang racket

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

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

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

Answer 3

一个列表中的数字和字符串呢？