Www Nudeactressworld X 0 En A%3E%3C Td%3E%20%3C Tr%3E%20%20%20%3C Table%3E%20%20%3C MARQUEE%3E%3C Td%3E%20%20%3C Tr%3E%20%20%3Ctr%3E%20%3Ctd%3E%3C Td%3E%20%20%3C Tr%3E%20%3C Table%3E%3C Td%3E%20%3C Tr%3E%20%3Ctr%3E%20%20%3Ctd%3E%3Ctable%3E%20%20%3Ctr%3E%20%3Ctd%3E%3C Td%3E%20%20%3C Tr%3E%20%3C Table%3E%20%3Ctable%3E%20%20%3Ctr%3E%20%3Ctd%3E%20%3Cobject%20classid Nude Actress World 【NOI2008】 志愿者招募 - datam - 博客园

 1 (*
 2  *Problem: NOI2008 自愿者招募
 3  *Author : Chen Yang
 4  *Time  : 2012.5.18
 5  *State : 30分
 6  *Memo : 搜索
 7 *)
 8 program employee;
 9 const maxn=2020;
10 type
11  ty=record
12  x,y,v:longint;
13  end;
14 
15 var
16  n,m,ans:longint;
17  g,now,cnt:array[0..maxn] of longint;
18  t:array[0..maxn] of ty;
19 //========================
20 procedure built;
21 var
22  i,j:longint;
23 begin
24  read(n,m);
25  for i:=1 to n do read(g[i]);
26  for i:=1 to m do
27  begin
28  read(t[i].x,t[i].y,t[i].v);
29 for j:=t[i].x to t[i].y do inc(cnt[j]);
30  end;
31 end;
32 //========================
33 procedure find(x,v:longint);
34 var
35  i,j,k,max:longint;
36 begin
37  if v>=ans then exit;
38  if x=m+1 then
39  begin
40 if ans>v then ans:=v;
41  exit;
42  end;
43  max:=0;
44  for j:=t[x].x to t[x].y do
45  begin
46  dec(cnt[j]);
47 if max<g[j] then max:=g[j];
48  end;
49  for i:=max downto 0 do
50  begin
51 for j:=t[x].x to t[x].y do
52 begin
53   inc(now[j],i);
54  if (cnt[j]=0)and(now[j]<g[j]) then
55  begin
56 for k:=t[x].x to j do dec(now[k],i);
57 for k:=t[x].x to t[x].y do inc(cnt[k]);
58  exit;
59  end;
60 end;
61 find(x+1,v+t[x].v*i);
62 for j:=t[x].x to t[x].y do dec(now[j],i);
63  end;
64  for j:=t[x].x to t[x].y do inc(cnt[j]);
65 end;
66 //========================
67 begin
68  assign(input,'employee.in'); reset(input);
69  assign(output,'employee.out'); rewrite(output);
70  built;
71  ans:=maxlongint;
72  find(1,0);
73  writeln(ans);
74  close(input); close(output);
75 end.

 1 (*
 2  *Problem: NOI2008 自愿者招募
 3  *Author : Chen Yang
 4  *Time  : 2012.5.18
 5  *State : AC
 6  *Memo : 网络流
 7 *)
 8 program employee;
 9 uses math;
 10 const max=100000000;
 11  maxn=2020;
 12 type
 13  ty1=^ty2;
 14  ty2=record
 15  x,f,v,fa:longint;
 16  next,up:ty1;
 17  end;
 18 
 19 var
 20  n,m,s,t,flow,tot,ans:longint;
 21  first,fa:array[0..maxn] of ty1;
 22  dui,dis,mflow:array[0..maxn] of longint;

nWww Nudeactressworld X 0 En A%3E%3C Td%3E%20%3C Tr%3E%20%20%20%3C Table%3E%20%20%3C MARQUEE%3E%3C Td%3E%20%20%3C Tr%3E%20%20%3Ctr%3E%20%3Ctd%3E%3C Td%3E%20%20%3C Tr%3E%20%3C Table%3E%3C Td%3E%20%3C Tr%3E%20%3Ctr%3E%20%20%3Ctd%3E%3Ctable%3E%20%20%3Ctr%3E%20%3Ctd%3E%3C Td%3E%20%20%3C Tr%3E%20%3C Table%3E%20%3Ctable%3E%20%20%3Ctr%3E%20%3Ctd%3E%20%3Cobject%20classid Nude Actress World 【NOI2008】 志愿者招募 - datam - 博客园a %C1%BD%CE%BB%CA%EC%C5%AE%CB%AE%CB%AE%D3%EB%C5%B5%C5%B5%C8%AB%C2%E3%C2%B6%B1%AB%B4%F3%B3%DF%B6%C8%CB%BD%C5%C4%CC%D7%CD%BC%C1%F7%B3%F6%CF%C2%D4%D8 g g %C5%B7%C3%C0%D0%A1%B8%F1%CA%BD%20sexinsex c Tube8%20on%20japanese 1
bWww Nudeactressworld X 0 En A%3E%3C Td%3E%20%3C Tr%3E%20%20%20%3C Table%3E%20%20%3C MARQUEE%3E%3C Td%3E%20%20%3C Tr%3E%20%20%3Ctr%3E%20%3Ctd%3E%3C Td%3E%20%20%3C Tr%3E%20%3C Table%3E%3C Td%3E%20%3C Tr%3E%20%3Ctr%3E%20%20%3Ctd%3E%3Ctable%3E%20%20%3Ctr%3E%20%3Ctd%3E%3C Td%3E%20%20%3C Tr%3E%20%3C Table%3E%20%3Ctable%3E%20%20%3Ctr%3E%20%3Ctd%3E%20%3Cobject%20classid Nude Actress World 【NOI2008】 志愿者招募 - datam - 博客园o Http://www.boyfriendtv.com/gay-porn.php World