将包含二进制数的列表转换为方案中的十进制和十六进制

Question

我对计划很陌生。 我知道如何从十进制转换为二进制，但我无法提出相反的转换逻辑。 我想从二进制数列表中获取一个十进制数。

十进制示例：

(decimal '(1 0 1)) ---> 5

十六进制示例：

(hexadecimal '(1 0 0 0 1)) ----> 12

到目前为止，我认为可以采用列表的最后一个数字并将其递归地乘以 2 ⁱ ，其中 i 代表列表中的位置，因此最后一个数字乘以 1，下一个乘以 2，依此类推。 最后在每个递归循环中添加这些数字。 不知道如何执行这个想法，也不知道它是否会奏效。

Answer 1

您对该解决方案的书面描述是正确的 - 您需要做的就是执行它。 几个指针：

• 如果你反转列表，逻辑会容易得多
• 将每个数字的权重和累计和作为递归函数的参数传递使得它更简单

你走在正确的轨道上 - 继续努力。 伪代码尝试可能会让您更清楚。

Answer 2

(defun bin-list-to-dec (lst)
  (reduce (lambda (x y) (+ (* x 2) y)) lst))

Answer 3

(define (binary->natural lon)
    (if (null? lon)
        0 
        (+ (car lon) (* 2 (binary->natural (cdr lon))))))

Answer 4

@orthometa 的答案是错误的 - 您需要反转列表并使用如下命名的 let 递归：

(define (binary->decimal binary-list)
  "Calculate decimal equivalent of list of binary"
  (let loop ((rev-bl (reverse binary-list)))
    (if (null? rev-bl)
        0
        (+ (car rev-bl) (* 2 (loop (cdr rev-bl)))))))