破百纪念！

233333

第五种转化是1到3，不是1和3，眼瞎了。。。

回复 @丝雨沫AiKy :
额~~

数据输入为啥有一堆

纯手工模拟（虽然写的不好）（C++）

好累手啊- -

我的字符串读入

回复 @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.