СС
(reduce + (map #(long (Math/pow % 3)) '(1 5 3)))
работает корректно
Size: a a a
СС
(reduce + (map #(long (Math/pow % 3)) '(1 5 3)))
ST
ST
СС
ST
СС
СС
ST
(defn exp [x n]
(reduce * (repeat n x)))
(reduce +
(map #(exp % 17)
'(2 1 8 9 7 1 4 2 5 8 7 6 1 2 0 7 5)))
=> 21897142587612075
СС
СС
ST
СС
ST
СС
MM
ST
(map (juxt identity #(exp % 17) #(long (Math/pow % 17)))
'(2 1 8 9 7 1 4 2 5 8 7 6 1 2 0 7 5))
=>
([2 131072 131072]
[1 1 1]
[8 2251799813685248 2251799813685248]
[9 16677181699666569 16677181699666570]
[7 232630513987207 232630513987207]
[1 1 1]
[4 17179869184 17179869184]
[2 131072 131072]
[5 762939453125 762939453125]
[8 2251799813685248 2251799813685248]
[7 232630513987207 232630513987207]
[6 16926659444736 16926659444736]
[1 1 1]
[2 131072 131072]
[0 0 0]
[7 232630513987207 232630513987207]
[5 762939453125 762939453125])
ST
(double 16677181699666569N)
=> 1.6677181699666568E16
СС
(map (juxt identity #(exp % 17) #(long (Math/pow % 17)))
'(2 1 8 9 7 1 4 2 5 8 7 6 1 2 0 7 5))
=>
([2 131072 131072]
[1 1 1]
[8 2251799813685248 2251799813685248]
[9 16677181699666569 16677181699666570]
[7 232630513987207 232630513987207]
[1 1 1]
[4 17179869184 17179869184]
[2 131072 131072]
[5 762939453125 762939453125]
[8 2251799813685248 2251799813685248]
[7 232630513987207 232630513987207]
[6 16926659444736 16926659444736]
[1 1 1]
[2 131072 131072]
[0 0 0]
[7 232630513987207 232630513987207]
[5 762939453125 762939453125])
ST
СС