[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;vara,b:array[0..maxn] of longint;f:array[0..maxn,0..maxn] of longint;ans,i,j,k,n,t:longint;procedure init;beginreadln(n);for i:=1 to n do readln(a[i],b[i]);end;procedure qsort(left,right:longint);var i,j,mid:longint;begini:=left; j:=right; mid:=b[(i+j) shr 1];repeatwhile b[i]<mid do inc(i);while b[j]>mid do dec(j);if i<=j then begint:=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;beginif a>b then exit(a);exit(b);end;procedure dp(x,y:longint);var i:longint;beginif f[x,y]<>0 then exit;for i:=x+1 to y-1 doif a[i]>=b[x] then begindp(i,y);f[x,y]:=max(f[x,y],f[i,y]+1);   end;for i:=y+1 to n doif (a[i]>=b[x]) then begindp(y,i);f[x,y]:=max(f[x,y],f[y,i]+1);    end;end;procedure main;begininit;qsort(1,n);for i:=1 to n-1 dofor j:=i+1 to n doif f[i,j]=0 then begin dp(i,j); inc(F[i,j],2); end;for i:=1 to n-1 dofor j:=i+1 to n do ans:=max(ans,f[i,j]);writeln(ans);end;beginmain;end.