Gift_纪中1763_快速幂+高精加

Description

无

Input

　　输入的第一行为一个整数t。

　　接下来t行，每行包含九个自然数。

Output

　　输出t行

　　每行一个整数，表示2^a+2^b+2^c+2^d+2^e+2^f+2^g+2^h+i。

Hint

[数据规模]

　　40% t<=1000

　　100% t<=100000 a,b,c,d,e,f,g,h<=60 i<=9223372036854775808

解析

看到次方就想到了快速幂，大概算了一下发现最大数据刚好比qword大1，就上了高精加

后面发现可以打点……

code

var
a,b,c,d,e,f,g,h,t,k,tmp:longint;
num1,num2,num3:array[0..500]of longint;
st:ansistring;
ans,i:qword;
function pow(x:longint):qword;
var
qaq:qword;
begin
if x=0 then exit(1);
if x=1 then exit(2);
if x mod 2=0 then
begin
qaq:=pow(x div 2);
exit(qaq*qaq);
end
else
begin
qaq:=pow(x div 2);
exit(qaq*qaq*2);
end;
end;
begin
readln(t);
while t>0 do
begin
readln(a,b,c,d,e,f,g,h,i);
ans:=pow(a);
ans:=ans+pow(b);
ans:=ans+pow(c);
ans:=ans+pow(d);
ans:=ans+pow(e);
ans:=ans+pow(f);
ans:=ans+pow(g);
ans:=ans+pow(h);
fillchar(num1,sizeof(num1),0);
fillchar(num2,sizeof(num2),0);
fillchar(num3,sizeof(num3),0);
str(ans,st);
tmp:=0;
begin
num3[0]:=length(st);
for k:=length(st)downto 1 do
num1[length(st)-k+1]:=ord(st[k])-48;

str(i,st);
if length(st)>num3[0] then
num3[0]:=length(st);

for k:=length(st)downto 1 do
num2[length(st)-k+1]:=ord(st[k])-48;
for k:=1 to num3[0] do
begin
num3[k]:=(num2[k]+num1[k]+tmp)mod 10;
tmp:=(num2[k]+num1[k]+tmp)div 10;
end;
if tmp<>0 then
begin
inc(num3[0]);
num3[num3[0]]:=tmp;
end;
for k:=num3[0]downto 1 do write(num3[k]);
writeln;
end;
dec(t);
end;
end.