今天谜之颓废。。
花了大概有三个半小时只写了一道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.