Lisp 中的 BINARY 到 DECIMAL - 使用非嵌套列表
BINARY to DECIMAL in Lisp - using a non-nested list
我的目标是采用 this S.O. post 中表示的相同功能并将其反转。
最初的发布者的目标是在 Lisp 中将十进制转换为二进制（并）制作一个非嵌套列表。换句话说，输出的 1 和 0 将在一个列表中。
我正在尝试做完全相反的事情 - 取一个表示二进制数的非嵌套列表，并将其转换为十进制数。
以前有人做过吗？有什么指点吗？
就在袖口：
$ clisp -q
[1]> (reduce (lambda (x y) (+ (* 2 x) y)) '(1 0 0 1))
9
[2]> (reduce (lambda (x y) (+ (* 2 x) y)) '(1 0 1 1))
11
开个玩笑；我穿着一件T恤。
我的目标是采用 this S.O. post 中表示的相同功能并将其反转。
最初的发布者的目标是在 Lisp 中将十进制转换为二进制（并）制作一个非嵌套列表。换句话说，输出的 1 和 0 将在一个列表中。
我正在尝试做完全相反的事情 - 取一个表示二进制数的非嵌套列表，并将其转换为十进制数。
以前有人做过吗？有什么指点吗？
就在袖口：
$ clisp -q
[1]> (reduce (lambda (x y) (+ (* 2 x) y)) '(1 0 0 1))
9
[2]> (reduce (lambda (x y) (+ (* 2 x) y)) '(1 0 1 1))
11
开个玩笑；我穿着一件T恤。