球拍二进制加法

Question

我有一个关于球拍的问题。给定 2 个字符串二进制数，我想以字符串二进制数的形式获取它们的总和。该函数应考虑进位和可能的溢出。所以函数应该是这样的：

(define (binary-sum a b) ...)

例如：

(binary-sum "010" "001")

"011"

或：

(binary-sum "0010" "1011")

"1101"

或者在溢出的情况下：

(binary-sum "1111" "0001")

"overflow"

请确定我需要的包。

谢谢！

Answer 1

Racket 中的二进制值使用前缀 #b 指定。使用它，我们可以创建以下函数：

> (define (binary-sum a b)
  (+ (string->number (string-append "#b" a))
     (string->number (string-append "#b" b))))

> (binary-sum "010" "001")
3

要将输出也格式化为二进制，我们可以使用 ~r，如下所示：

> (define (binary-sum a b)
  (~r (+ (string->number (string-append "#b" a))
      (string->number (string-append "#b" b))) #:base 2))

> (binary-sum "010" "001")
011

最后，要添加溢出功能，我们可以简单地将字符串结果的长度与其中一个参数的长度进行比较。

(define (binary-sum a b)
  (let ((sum (~r (+ (string->number (string-append "#b" a))
                    (string->number (string-append "#b" b)))
                 #:base 2)))
    (if (> (string-length sum)
           (string-length a))
        "overflow"
        sum)))

这与您的问题指定的行为完全相同。如果您还有任何疑问或困惑，请告诉我。祝你好运！

编辑：只是想指出，如果您只需要将两个二进制值相加而不介意取回整数，您可以随时这样做：

> (+ #b010 #b001)
3

球拍二进制加法

Racket Binary Addition

binary

sum

addition

racket