数字のベクトルを整数に変換するにはどうすればいいですか？

Question

いくつかの数学的な問題のために、私は数字のベクトルを整数の表現として使用しています。これはこれまで私にとってうまくいきます。今度はベクトルを整数に戻したいと思います。私はすぐに、適切な何かを見つけると、次の機能を思い付いていない：

(defun vector->integer (vec) 
    "Returns a given vector of digits as an integer." 
    (loop :for digit :across vec 
     :with number-string = "" 
     :do (setf number-string 
      (concatenate 'string number-string (write-to-string digit))) 
     :finally (return (parse-integer number-string)))) 

それは基本的に私が欲しいん何が、私は少し面倒integerにstringに変換vectorを見つけました。もっと効率的なものはありますか？

Answer 1

なぜ文字列を連結する代わりに乗算を使用しないのですか？

など。

(loop for digit across vec 
     with number = 0 
     do (setf number (+ (* 10 number) digit)) 
     finally (return number)) 

それとももっと簡単：

(reduce (lambda (a b) (+ (* 10 a) b)) vec) 

Answer 2

あなたのコードはよりシンプルかつ効率的に書かれたようです：この質問は、コード効率についてです

(defun vector->integer (vector) 
    (parse-integer (map 'string #'digit-char vector)))