方案二进制列表到十进制和

Question

A function that takes a list of binary numbers and returns their decimal sum.

Call: (addBinary '(1101 111 10 101))

(define (addBinary binaryList))

returns 27

Answer 1

Tested in Guile and Racket:

(define (addBinary binaryList)
  (apply +
         (map (lambda (n)
                (string->number
                 (number->string n) 2))
              binaryList)))