演算法：dp
program vijos1246;
const
maxn=100000;
var n,m:longint;
f:array [0..maxn,0..5] of longint;
can:array [0..maxn] of boolean;
start:array [0..maxn] of longint;
function max(x,y:longint):longint;
begin
if x>y then exit(x) else exit(y);
end;
procedure init;
var i,j,mh,gang,st,ed:longint;
s,ts:string;
begin
readln(n,m);
for i:=1 to m do
begin
readln(s);
mh:=pos(':',s);
gang:=pos('-',s);
ts:=copy(s,mh+1,gang-mh-1);
val(ts,st);
ts:=copy(s,gang+1,length(s)-gang);
val(ts,ed);
if ed>start[st] then start[st]:=ed;
end;
for i:=1 to n do
begin
for j:=i to start[i]-1 do
can[j]:=true;
end;
end;
procedure main;
var i,j:longint;
begin
fillchar(f,sizeof(f),255);
f[0,1]:=0;
f[0,0]:=0;
for i:=1 to n do
begin
f[i,0]:=f[i-1,5];
if not can[i-1] then f[i,1]:=max(f[i-1,0],max(f[i-1,1],f[i-1,2]))+1 else f[i,1]:=f[i-1,0];
for j:=2 to 5 do f[i,j]:=f[i-1,j-1];
end;
end;
procedure outit;
begin
if max(f[n,0],max(f[n,1],f[n,2]))>=0 then writeln(max(f[n,0],max(f[n,1],f[n,2]))) else writeln(-1);
end;
begin
assign(input,'vj1246.in'); reset(input);
assign(output,'vj1246.out'); rewrite(output);
init;
main;
outit;
close(input); close(output);
end.
文科生的悲哀
總時間限制 1000ms 記憶體限制 65536kb 描述化學不及格的matrix67無奈選擇了文科。他必須硬著頭皮準備一次又一次的文科考試。在這一學期一共有n次文科考試，考試科目有4種，分別為政治 歷史 地理和綜合。每次考哪一科是不定的，因此在考試前matrix67不知道應該 去複習哪一科的功課。...
文科生的悲哀
化學不及格的matrix67無奈選擇了文科。他必須硬著頭皮準備一次又一次的文科考試。在這一學期一共有n次文科考試，考試科目有4種，分別為政治 歷史 地理和綜合。每次考哪一科是不定的，因此在考試前matrix67不知道應該 去複習哪一科的功課。他希望能 出下一次可能考的科目。於是，他收集到了以往的文科...
文科生的悲哀 55頁的高三數學課本
近來一些人問我，聽說你們文科班的不學極限啊。我回答，嗯，而且更強的是，不學極限但學導數。這個話題非常有趣。我打算詳細介紹一下我們的課本是什麼樣子的。薄，封面綠色的，上書 第三冊 選修i 整本書只有兩章，統計和導數。統計裡面只有三節，抽樣方法 總體分布的估計 教你寫正字，畫 總體期望值和方差的估計。最...