如何在方案中将字符串转换为二进制

Question

因此，我遇到了这个问题，我一直在尝试编码一种将二进制号码转换为方案（R5RS）字符串的方法，但是我一直在遇到一些问题。我和我的导师试图在一个小时的时间内解决它，但我们无法解决它。

实际上，截至我完成最后一场会议时，他抛弃了以下内容：

    (define binary->string (lambda (lst)
                         (define str (make-string 0)) 
                         (letrec ((recurse (lambda (l)
                                             ; turn into not null
                                             (if (null? l)
                                                 (lambda ()
                                                   (set! str (string-append str (number->string (car l))))
                                                   (recurse (cdr l)))
                                                 )
                                             )
                                           )
                                  )
                           (recurse lst)
                          )
                         str)
  )

(binary->string '(0 1 0 1 0 0 1 1))

看看它说“变成无效”的地方？好吧，我们遇到了一些问题，试图将数字转换为无效。我肯定希望这会有所帮助。谢谢！

Answer 1

所以你想要这个结果吗？

> (binary->string '(0 1 0 1 0 0 1 1))
"01010011"

我看到您已经使用过 string-append 和 number-＆gt; string ，因此您还应使用 apply 和 map：

(define (binary->string arg)
  (apply string-append
         (map number->string arg)))

> (binary->string '(0 1 0 1 0 0 1 1))
"01010011"

如果您也想将其转换为小数号，请使用 string- string- string- string- string-＆gt;数字 < /a>带有 radix 2：

> (string->number "01010011" 2)
83