10月1日水题记录

 

学校神奇地给了7天假，又可以刷一阵子题了，happy

第一天嘛，就随便做了几道水题了

 

昂贵的聘礼：枚举等级最小的点再最短路就可以了

 

钉子与小球：题目本身是超级水的。但有个细节需注意，给两个分数通分相加时，要先约掉一点，不然就会爆int64

     假设a/b+c/d=e/f，令k=gcd(b,d)，那么e=a*d div k+c*b div k ，f=b div k*d，再对e、f约分这样才不会215

 

pku1552：超级水题

 

pku1742：可以看成物品数量有限制的完全背包吧，处理每个物品的时候，转移时带个辅助数组g[j]表示拼出j这个价值用了几个该物品。可是本题十分恶心地需要卡常数才不会tle，for j=1 to m会超，改成for j=c[i] to m才行

 

pku2983-差分约束系统（bellman-ford比spfa还快。。）对于P A B X，连(A,B,-X)和(B,A,X)，对于V A B，连(X,Y,-1)，再判有没有负权环就可以了，spfa的话特别要注意，可能有V 1 1这样子的信息，所以取出队首时，要先把队首那个点的进队标记去掉才判得出这种情况

 

pku2186-求强连通分量缩点，看最低强连通分量（就是出度为0的），如果有多个，那就输0，如果只有1个，就输出这个分量包含的点个数

感觉我缩点那里好像编丑了点。。

 

pku1112（分类练习题dp之分组）：题解见http://www.cppblog.com/linyangfei/archive/2008/08/08/58295.htm

    太巧妙了，就是自己想不到。一点总结：这题无非就是想快速得出两个点能不能被分到同一组中，然后就能利用反图的性质设计dp算法来求解了。构造解有点恶心，我卡了好久。。

这题贴个代码吧，虽然慢了点：

program syj; {dp+tulun_shenqi} const maxn=105; var n,i,j,k,p:longint; a:array[1..maxn]of longint; // b:array[1..2]of longint; c:array[1..maxn,1..2,0..maxn]of longint; u:array[1..maxn,1..maxn]of boolean; g,gg:array[1..maxn,-maxn..maxn]of longint; f:array[0..maxn,-maxn..maxn]of boolean; ans:array[1..2,0..maxn]of longint; procedure dfs(i,t:longint); var k:longint; begin a[i]:=t; //inc(b[t]); inc(c[p,a[i],0]);c[p,a[i],c[p,a[i],0]]:=i; for k:=1 to n do if u[i,k] or u[k,i] then if a[k]=0 then dfs(k,3-t) else if 3-t<>a[k] then begin writeln('No solution'); close(input);close(output); halt; end; end; begin assign(input,'teams.in');reset(input); assign(output,'teams.out');rewrite(output); readln(n); fillchar(u,sizeof(u),1); for i:=1 to n do u[i,i]:=false; for i:=1 to n do begin read(j); while j<>0 do begin u[i,j]:=false;read(j); end; end; f[0,0]:=true; for i:=1 to n do if a[i]=0 then begin {b[1]:=0;b[2]:=0;} inc(p); dfs(i,1); k:=c[p,1,0]-c[p,2,0]; for j:=-n to n do if (j+k>=-n)and(j+k<=n)and f[p-1,j+k] then begin f[p,j]:=true; g[p,j]:=k;gg[p,j]:=2; end else if (j-k>=-n)and(j-k<=n)and f[p-1,j-k] then begin f[p,j]:=true; g[p,j]:=-k;gg[p,j]:=1; end else f[p,j]:=false; end; for i:=0 to n do if f[p,i] or f[p,-i] then break; if not f[p,i] then i:=-i; while p>0 do begin k:=gg[p,i]; for j:=1 to c[p,k,0] do begin inc(ans[1,0]);ans[1,ans[1,0]]:=c[p,k,j]; end; k:=3-k; for j:=1 to c[p,k,0] do begin inc(ans[2,0]);ans[2,ans[2,0]]:=c[p,k,j]; end; i:=i+g[p,i]; dec(p); end; write(ans[1,0]); for i:=1 to ans[1,0] do write(' ',ans[1,i]); writeln; write(ans[2,0]); for i:=1 to ans[2,0] do write(' ',ans[2,i]); writeln; close(input); close(output); end.