【NOIP2014模拟9.9】逆光 (Standard IO)

题意：

一些向右向左的花，把他们全部搞掉，如果被搞掉的被一朵花看到那么就会好感度减一，问你一共会减多少。花少于2000000

思路：

简单一想，他们只有><才会被看到,>>,<<,<>都不会被看到，那么就是求有多少个><这样的匹配，还是会超时，只需要>做一下前缀和就好了。

程序：

const
 maxn=1000000;
var
 a,f,b:array [0..maxn] of longint;
 i,j,n:longint;
 ans:int64; 
procedure qsort(l,r:longint);
var
 i,j,mid:longint;
begin
 i:=l; j:=r;
 mid:=f[(l+r) div 2];
 while i<j do
 begin
  while f[i]>mid do inc(i);
  while f[j]<mid do dec(j);
  if i<=j then
  begin
   f[0]:=f[i];
   f[i]:=f[j];
   f[j]:=f[0];
   b[0]:=b[i];
   b[i]:=b[j];
   b[j]:=b[0];
   inc(i); dec(j);
  end;
 end;
 if l<j then qsort(l,j);
 if r>i then qsort(i,r);
end;

begin
 readln(n);
 for i:=1 to n do
 begin
  read(a[i]);
  b[i]:=i;
  if a[i]=1 then f[i]:=f[i-1]+1
            else f[i]:=f[i-1];
 end;
 for i:=1 to n do
  if a[i]=0 then ans:=ans+f[i-1];
 writeln(ans);
end.