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

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

球拍支持大量的实用函数，使这一切变得很容易。如果你只想看看列表中有什么，你可能只需要"display“就行了。如果你关心没有括号，你可以使用string-join。

#lang racket

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

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

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