[USACO 2014 Jan Silver]Recording the Sczolympics

今天谜之颓废。。

花了大概有三个半小时只写了一道DP。。

真是。。

哎昨天不自量力想做一道GOLD。。

然后自以为想出了一个正确算法。。

调了很久之后发现是错的。。

然后就呵呵呵呵呵呵呵了。。

[题目描述]

作为一个冬季运动爱好者(当然包括那些牛们)，Flover想要去转播尽量多的关于即将到来的Sczolympics比赛。

为Sczolympics准备的电视计划包含N(1<=N<=150)个不同的节目，每个有一个预定好的开始和结束时间。Flover有一个双声道转播机，来同时转播两个节目。请帮他计算出他最可以转播的比赛数量。

就是双线程DP。。

先sort..

然后对于f[i,j]，表示现在同时转播i和j，接下来（包括i和j)最多能转播多少。。(i<=j)

f[k,j]+1 { i<k<j,且a[k]>=b[i] }

那么f[i,j]:=max{

f[j,k]+1 { j<k 且 a[k]>=b[i]}

就好了。。

然后我以为答案是f[1,2]就好了，因为肯定是越前面越好。。

后来想想不是，万一如果有线段右端相同（比如下标为2,3的右端相同)那么f[1,2]就不可以了。。

const shuru='recording.in';
	  shuchu='recording.out';
	  maxn=151;
var	a,b:array[0..maxn] of longint;
	f:array[0..maxn,0..maxn] of longint;
	ans,i,j,k,n,t:longint;
procedure init;
begin
	readln(n);
	for i:=1 to n do readln(a[i],b[i]);
end;
procedure qsort(left,right:longint);
var i,j,mid:longint;
begin
	i:=left; j:=right; mid:=b[(i+j) shr 1];
	repeat
		while b[i]<mid do inc(i);
		while b[j]>mid do dec(j);
		if i<=j then begin
						t:=a[i]; a[i]:=a[j]; a[j]:=t;
						t:=b[i]; b[i]:=b[j]; b[j]:=t;
						inc(i); dec(j);
					 end;
	until i>j;
	if j>left  then qsort(left,j);
	if i<right then qsort(i,right);
end;
function max(a,b:longint):longint;
begin
	if a>b then exit(a);
	exit(b);
end;
procedure dp(x,y:longint);
var i:longint;
begin
	if f[x,y]<>0 then exit;
	for i:=x+1 to y-1 do
		if a[i]>=b[x] then begin
							dp(i,y);
							f[x,y]:=max(f[x,y],f[i,y]+1);
						   end;
	for i:=y+1 to n do
		if (a[i]>=b[x]) then begin
							dp(y,i);
							f[x,y]:=max(f[x,y],f[y,i]+1);
						    end;
end;
procedure main;
begin
	init;
	qsort(1,n);
	for i:=1 to n-1 do
		for j:=i+1 to n do
			if f[i,j]=0 then begin dp(i,j); inc(F[i,j],2); end;
	for i:=1 to n-1 do
		for j:=i+1 to n do ans:=max(ans,f[i,j]);
	writeln(ans);
end;
begin
	main;
end.