racket - 在 Racket 中打印一个填充的二进制字

Question

我想在 Racket 中以二进制打印填充到 32 位的字。我知道printf和“~b”，但我希望它每次填充为 32 位长。我该怎么做呢？

例子

(printf "~b" 42) 
=> 101010
Want: 00000000000000000000000000101010

Answer 1

这是使用 Racket 5.3.1 及更高版本执行此操作的简洁方法：

Welcome to Racket v5.3.2.3.
-> (require racket/format)
-> (~r 42 #:base 2 #:min-width 32 #:pad-string "0")
"00000000000000000000000000101010"

有关更多详细信息，请参阅球拍/格式。

在较旧的球拍版本中，您可以这样做：

Welcome to Racket v5.3.
-> (require srfi/13)
-> (string-pad (number->string 42 2) 32 #\0)
"00000000000000000000000000101010"

Answer 2

那么这是一个简单，低效的方法：

(define (pad-left length padding the-str)
  (if (> length (string-length the-str))
      (pad-left length padding (string-append padding the-str))
      the-str))

(write (pad-left 32 "0" (format "~b" 42)))

Answer 3

好吧，我强行提出了一个解决方案：

(define (print-word x)
  (if  (not (<= -2147483648 x 4294967295))
    (error 'print-word "ERROR This number is bigger than a word ~a" x)
    (let* ([positive-x (if (< x 0) (+ #x100000000 x)
                         x)]
           [str (number->string positive-x 2)]
           [padded-str (string-append 
                         (make-string (- 32 (string-length str)) #\0)
                         str)])
      (build-string 39 
        (λ(i) (cond [(= (remainder (+ 1 i) 5) 0) #\space]
                    [else (string-ref padded-str (- i (quotient i 5)))]))))))

这实际上返回了每 4 位之间有空格的字符串，因为实际上很难以另一种方式阅读。