ИФ
Size: a a a
ИФ
ИФ
N
ИФ
ИФ
n
n
ВФ
ВФ
N
n
n
n
n
AG
AS
(defn to-num1 [seq-nums] (apply + (map * seq-nums (iterate (partial * 10) 1))))
(defn to-num2 [seq-nums] (reduce-kv #(+ % (* %3 (long (Math/pow 10 %2)))) 0 (into [] seq-nums)))
(time (map to-num1 (partition 3 (range 200000)))) => "Elapsed time: 0.063412 msecs"
(time (map to-num2 (partition 3 (range 200000)))) => "Elapsed time: 0.062708 msecs"
VM
OR
(defn to-num1 [seq-nums] (apply + (map * seq-nums (iterate (partial * 10) 1))))
(defn to-num2 [seq-nums] (reduce-kv #(+ % (* %3 (long (Math/pow 10 %2)))) 0 (into [] seq-nums)))
(time (map to-num1 (partition 3 (range 200000)))) => "Elapsed time: 0.063412 msecs"
(time (map to-num2 (partition 3 (range 200000)))) => "Elapsed time: 0.062708 msecs"
into
заставляет коллекции реализовываться.n
A