将二进制字符串转换为数字

Question

很简单，但我似乎找不到答案。 我有一个由 1 和 0 组成的字符串，例如"01001010" ——我如何将其解析为一个数字？

Answer 1

使用string-to-number ，它可以选择接受基数：

(string-to-number "01001010" 2)
;; 74

Answer 2

正如@sds 在评论中所解释的，如果转换失败， string-to-number将返回 0。 这是不幸的，因为返回值 0 也可能意味着解析成功。 我宁愿使用这个函数的 Common Lisp 版本cl-parse-integer 。 Hyperspec 中描述了标准函数，而 Emacs Lisp 中的函数略有不同（特别是，没有辅助返回值）：

(cl-parse-integer STRING &key START END RADIX JUNK-ALLOWED)

从STRING的子字符串从START到END解析整数。 STRING可能被空格字符（具有语法' '字符）包围。 其他非数字字符被视为垃圾。 RADIX是 2 到 36 之间的整数，默认值为 10。如果START和END之间的子字符串无法解析为整数，除非JUNK-ALLOWED非零，否则会发出错误信号。

(cl-parse-integer "001010" :radix 2)
=> 10

(cl-parse-integer "0" :radix 2)
=> 0

;; exception on parse error
(cl-parse-integer "no" :radix 2)
=> Debugger: (error "Not an integer string: ‘no’")

;; no exception, but nil in case of errors
(cl-parse-integer "no" :radix 2 :junk-allowed t)
=> nil

;; no exception, parse as much as possible
(cl-parse-integer "010no" :radix 2 :junk-allowed t)
=> 2

Answer 3

这个线程有一个elisp 标签。 因为它也有一个 lisp 标签，所以我想展示两个解决方案的标准 Common Lisp 版本。 我只在 LispWorks 上检查过这些。 如果我的解决方案不是标准的 Common Lisp，也许有人会纠正和改进我的解决方案。

对于解决方案

(string-to-number "01001010" 2)

和

(cl-parse-integer "001010" :radix 2)

LispWorks 没有string-to-number并且没有cl-parse-integer 。 在 LispWorks 中，您可以使用：

(parse-integer "01001010" :radix 2)

对于解决方案

(read (concat "#2r" STRING))

LispWorks 没有concat 。 您可以改用连接。 read不适用于 LispWorks 中的字符串。 你必须给read一个流。

在 LispWorks 中，您可以这样做：

(read (make-string-input-stream (concatenate 'string "#2r" "01001010")))

您还可以使用这样的格式：

(read (make-string-input-stream (format nil "#2r~a" "01001010")))

Answer 4

相比之下，这似乎很笨拙，但 FWIW 你也可以这样做：

(read (concat "#2r" STRING))

即从字符串中read单个表达式作为二进制数。

如果表达式无效，此方法将发出错误信号。