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"

有关详细信息，请参阅racket/format。

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

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

Answer 2

好吧，我强迫一个解决方案：

(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个数字之间有空格的字符串，因为它实际上很难以另一种方式读取。

Answer 3

这是一种简单，低效的方法：

(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)))

在Racket中打印填充的二进制字

3 个答案: