Merge pull request #9 from jdz/patch-1

Process bit vector from end instead of reversing
thephoeron · Oct 2, 2018 · c2dcb3b · c2dcb3b
2 parents 2260988 + 6d6204d
commit c2dcb3b
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/arithmetic.lisp b/src/arithmetic.lisp
@@ -10,7 +10,9 @@
   "Returns the bits of BIT-VECTOR as an integer as the primary value, number of bits as the secondary value.
 SLOW!! Consult Hackers-Delight"
   (let ((place -1))
-    (values (reduce #'+ (reverse bit-vector) :key (lambda (digit) (ash digit (incf place))))
+    (values (reduce #'+ bit-vector
+                    :key (lambda (digit) (ash digit (incf place)))
+                    :from-end t)
             (incf place))))
 
 (defun bit-sum (&rest rest)