好累手啊- -

我的字符串读入

回复 @SUNYU :
在勾选“允许查看你提交的代码”后就不用在评论里粘代码了，影响评论的可读性

这题整了我一年!!!!!!

左偏树就是好写，Mato诚不我欺

var
a,l,r,c:array[0..50100]of int64;
i,j,k,m,n:longint;
ans:int64;
function low(x:longint):longint;
begin
exit(x and (x xor(x-1)));
end;
procedure change(i,k:longint);
begin
while i<=35000 do
begin
c[i]:=c[i]+k;
i:=i+low(i);
end;
end;
function sum(i:longint):longint;
var
s:longint;
begin
s:=0;
while i>0 do
begin
s:=s+c[i];
i:=i-low(i);
end;
exit(s);
end;
begin
assign(input,'e:\1.txt');reset(input);
//assign(output,'queueb.out');rewrite(output);
read(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do a[i]:=a[i]+1;//另外树状数组不能处理下标为1的情况，因为low函数一直返回0，会死循环，所以各加1
for i:=1 to n do
begin
change(a[i],1);
l[i]:=sum(a[i]-1);
end;
fillchar(c,sizeof(c),0);
for i:=n downto 1 do
begin
change(a[i],1);
r[i]:=sum(a[i]-1);
end;
for i:=1 to n do
ans:=ans+l[i]*r[i];
writeln(ans);
close(output);
end.

var
a,l,r,c:array[0..50100]of int64;
i,j,k,m,n:longint;
ans:int64;
function low(x:longint):longint;
begin
exit(x and (x xor(x-1)));
end;
procedure change(i,k:longint);
begin
while i<=35000 do
begin
c[i]:=c[i]+k;
i:=i+low(i);
end;
end;
function sum(i:longint):longint;
var
s:longint;
begin
s:=0;
while i>0 do
begin
s:=s+c[i];
i:=i-low(i);
end;
exit(s);
end;
begin
assign(input,'e:\1.txt');reset(input);
//assign(output,'queueb.out');rewrite(output);
read(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do a[i]:=a[i]+1;//另外树状数组不能处理下标为1的情况，因为low函数一直返回0，会死循环，所以各加1
for i:=1 to n do
begin
change(a[i],1);
l[i]:=sum(a[i]-1);
end;
fillchar(c,sizeof(c),0);
for i:=n downto 1 do
begin
change(a[i],1);
r[i]:=sum(a[i]-1);
end;
for i:=1 to n do
ans:=ans+l[i]*r[i];
writeln(ans);
close(output);
end.

回复 @cstdio :
经过叔的指引，发现犇，Orzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz

LCT模板题，树链剖分模板题
想码这两个模板的来这里，4组业界良心手画级数据欢迎debug！！！

第一个点都不知道怎么算出来的= =..我想还是算了

这题数据范围说小了。。

受不了，还要注意DFS的顺序（上，左，右，下）·······
本来想练习queue，结果成了deque······才发现deque是个好东西······

CDQ分治……
求凸线的时候要注意坐标相等的情况，包括重合与斜率不存在

居然tm的是小于关系，我...........看好题目太重要了..............