Question

我的目标是采用this S.O. post中表示的相同功能并将其反转。

原始海报的目标是在Lisp中将十进制转换为二进制（并且）创建一个非嵌套列表。换句话说，输出的1和0将在一个列表中。

我正在尝试完全相反 - 采用表示二进制数的非嵌套列表，并将其转换为小数。

以前有人这样做过吗？有什么指针吗？

Answer 1

脱掉我袖子的袖口：

$ 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恤。