整数和字符串的 Racket 转字符串函数

Question

需要写个to-string接受整数和字符串的函数。

(to-string 3) ; -> "3"
(to-string "hello") ; -> "\"hello\""
(to-string "hel\"lo") ; -> "\"hel\\\"lo\""

我设法做到了:

(define (to-string x)
  (define o (open-output-string))
  (write x o)
  (define str (get-output-string o))
  (get-output-bytes o #t)
  str
  )
(to-string 3)
(to-string "hello")
(to-string "hel\"lo")

然而， get-output-bytes重置不是很可读。 Racket 惯用的做法是什么？

Answer 1

是否~v函数或 ~s函数来自 racket/format 为你工作？

> (~v 3)
"3"
> (~v "hello")
"\"hello\""
> (~v "hel\"lo")
"\"hel\\\"lo\""