Question

我很难找到一个在布局中将布尔值转换为字符串的示例。

我的问题是我使用string-append作为调试器的一部分添加几个字符串。我的解决方法是检查是否等于#t，然后追加“#t”，和#f一样。

我的问题 - 在Scheme中有一个将bool转换为字符串的方法吗？像bool-＆gt; string？

我的代码：

(if (equal? val #t)
                       (string-append (number->string count) ":" "#t")    
                       (string-append (number->string count) ":" "#f")    )

Answer 1

这可能会对您有所帮助：

(define (->string x)
  (call-with-output-string
   (lambda (out)
     (display x out))))

将任何对象写出到字符串端口并返回其字符串值。

> (->string #t)
"#t"
> (->string #f)
"#f"

Answer 2

(define (boolean-to-string val) (if val "#t" "#f"))

(string-append (number->string count) ":" (boolean-to-string val))

Answer 3

使用format：

> (format "~a" #t)
"#t"
> (format "~a" #f)
"#f"

Scheme - 将布尔值转换为字符串？

3 个答案: