我现在真的什么都不会了呢......

题目链接: https://www.codechef.com/problems/SEAARC

好吧，这题其实考察的是枚举的功力……

题目要求的是\(ABAB\)的数量，这个不太好求，但是不同颜色区间对的总数和\(AABB,ABBA\)的都比较好求

补集转化，求\(ans0,ans1,ans2\), 分别表示总数、\(AABB\)、\(ABBA\)的数量

\(ans0\)很好算

\(ans1\), 枚举\(B\)的左端点

\(ans2\), 分块讨论

若\(A,B\)都是小颜色(该颜色块的数量小于阈值)，则枚举\(A\)的左右端点，变成二维数点

若\(A\)是大颜色\(B\)是小颜色，则枚举\(A\)的种类，然后枚举\(B\)的种类和左右端点，推一下式子发现可以维护前缀和省去枚举左端点

若\(B\)是大颜色，同理枚举\(B\)的种类然后枚举\(A\)的种类和左右端点，同样省去枚举左端点

从昨天下午做到今天上午。。

理论最优时间复杂度\(O(n\sqrt{n\log n})\)

代码

#include<cstdio>
#include<cstdlib>
#include<cstring>
#include<cassert>
#include<vector>
#include<cmath>
#define llong long long
using namespace std;

const int N = 1e5;
const int P = 1e9+7;
const llong INV2 = 5e8+4;
int nxt[N+3];
int lstpos[N+3];
int a[N+3];
int num[N+3];
int cnum[N+3];
llong tmp0[N+3],tmp1[N+3],tmp2[N+3];
vector<int> clrpos[N+3];
int n,m,B;
llong ans1,ans2a,ans2b,ans2c,ans0,ans;

llong C2(llong x) {return x*(x-1ll)/2ll%P;}
llong update(llong &x,llong y) {x = (x+y)%P;}

struct BITree
{
	llong tr[N+3]; int siz;
	void addval(int lrb,llong val)
	{
		while(lrb<=siz)
		{
			update(tr[lrb],val);
			lrb += (lrb&(-lrb));
		}
	}
	llong querysum(llong rb)
	{
		llong ret = 0ll;
		while(rb)
		{
			update(ret,tr[rb]);
			rb -= (rb&(-rb));
		}
		return ret;
	}
	void clear()
	{
		for(int i=0; i<=siz; i++) tr[i] = 0ll;
	}
} bit1,bit2;

void getans0() //ans0=ËùÓÐÑÕÉ«C(num,2)Á½Á½³Ë»ýÖ®ºÍ ²»ËãAAAA 
{
	llong cur = 0ll;
	for(int i=1; i<=m; i++)
	{
		llong tmp = C2(num[i]);
		update(ans0,cur*tmp%P);
		update(cur,tmp);
	}
}

void getans1() //²»ËãAAAA 
{
	llong tmp = 0ll; //µ±Ç°×ܹ²Í¬É«Çø¼äµÄ¸öÊý 
	for(int i=1; i<=n; i++)
	{
		update(ans1,(tmp-C2(cnum[a[i]]))*(num[a[i]]-cnum[a[i]]-1)); //ÕâÖÖÑÕÉ«×ܸöÊý¼õÕâ֮ǰµÄ¸öÊý-1£¬µÈÓÚÕâÖ®ºóµÄ¸öÊý£¬³ËÒÔÇ°ÃæµÄÒìÉ«¸öÊý 
		update(tmp,(llong)cnum[a[i]]); //ÕâÖÖÑÕɫ֮ǰµÄ¸öÊý 
		cnum[a[i]]++;
	}
}

void getans2a() //small-small ²»ËãAAAA 
{
	bit1.siz = n; bit1.clear(); llong cur = 0ll;
	for(int i=1; i<=n; i++) //ö¾ÙÓҶ˵ã 
	{
		if(num[a[i]]<=B)
		{
			int tnum = 0;
			for(int j=nxt[i]; j; j=nxt[j])
			{
				llong tmp = cur-bit1.querysum(j)-C2(tnum)+P+P; //>jµÄ×ó¶ËµãµÄ¸öÊý=×ܸöÊý¼õ<=jµÄ¸öÊý£¬È¥µôͬɫµÄ¸öÊý(²»ËãiºÍj)
				update(ans2a,tmp);
				tnum++; //ͬɫ¸öÊý 
			}
			for(int j=nxt[i]; j; j=nxt[j]) //ÓÉÓÚÊÇÓҶ˵ãСÓÚj£¬ÏÈÐ޸ĺó²éѯ 
			{
				cur++; //Ä¿Ç°Çø¼ä×ܸöÊý,¼´bit1.querysum(i) 
				bit1.addval(j,1);
			}
		}
	}
}

void getans2b() //large-small
{
	for(int i=1; i<=m; i++) //ö¾ÙAÖÖÀà
	{
		if(num[i]>B) 
		{
			tmp1[0] = 0ll; for(int j=1; j<=n; j++) tmp1[j] = tmp1[j-1]+(a[j]==i?1:0);
			for(int j=1; j<=m; j++)  //ö¾ÙBÖÖÀà 
			{
				if(num[j]<=B)
				{
					llong cur = 0ll;
					for(int k=0; k<clrpos[j].size(); k++)
					{
						int rb = clrpos[j][k];
						llong tmp = (num[i]-tmp1[rb])*cur%P;
						update(ans2b,tmp); 
						update(cur,tmp1[rb]); //lb²»¿ÉµÈÓÚrb, ËùÒÔÏȸüÐÂans2bÔÙ¸üÐÂcur 
					}
				}
			}
		}
	}
}

void getans2c() //large-large or small-large ²»ËãAAAA 
{
	for(int i=1; i<=m; i++) //ö¾ÙBµÄÖÖÀà 
	{
		if(num[i]>B)
		{
			tmp1[0] = 0; for(int j=1; j<=n; j++) tmp1[j] = tmp1[j-1]+(a[j]==i?1:0);
			for(int j=1; j<=m; j++) //ö¾ÙAµÄÖÖÀà 
			{
				if(i==j) continue;
				llong cur1 = 0ll,cur2 = 0ll;
				for(int k=0; k<clrpos[j].size(); k++) //ö¾Ùra
				{
					//¸üÐÂans2c 
					int ra = clrpos[j][k];
					llong tmp = tmp1[ra]*tmp1[ra]%P*k%P;
					update(ans2c,tmp);
					tmp = tmp1[ra]*(-2ll*cur1-k)%P+P;
					update(ans2c,tmp);
					tmp = cur2+cur1+P;
					update(ans2c,tmp);
					//¸üÐÂcur1,cur2 
					update(cur2,tmp1[ra]*tmp1[ra]);
					update(cur1,tmp1[ra]);
				}
			}
		}
	}
	ans2c = ans2c*INV2%P;
}

int main()
{
	scanf("%d",&n); B = sqrt(n)/2;
	for(int i=1; i<=n; i++) scanf("%d",&a[i]),num[a[i]]++,m = max(m,a[i]),clrpos[a[i]].push_back(i);
	for(int i=1; i<=n; i++)
	{
		nxt[i] = lstpos[a[i]];
		lstpos[a[i]] = i;
	}
	getans0();
	getans1();
	getans2a();
	getans2b();
	getans2c();
	ans = ((ans0-ans1-ans2a-ans2b-ans2c)%P+P)%P;
	printf("%lld\n",ans);
	return 0;
}