摘要： 1 var i,j,n,s,t,p,min:longint; 2 a:array[1..1000,1..1000]of longint; 3 d:array[1..1000]of longint; 4 v:array[1..1000]of boolean; 5 6 7 8 procedure dijkstra(s:longint); 9 begin10 fillchar(d,sizeof(d),$7f);11 fillchar(v,sizeof(v),false);12 d[s]:=0;13 for j:=2 t... 阅读全文

摘要： 这是一道很DT的DP，你认为呢？const infinite=1000000000;var w:array[0..200,0..200]of longint; n,i,j,x1,x2,ans,l:longint; p:array[0..200]of longint; f:array[0..3,0..200,0..200]of longint;function min(a,b:longint):l... 阅读全文

摘要： 1、 排序 1423, 1694, 1723, 1727, 1763, 1788, 1828, 1838, 1840, 2201, 2376, 2377, 2380, 13 18, 1877, 1928, 1971, 1974, 1990, 2001, 2002, 2092, 2379, 1002（需要字符处理，排序用快排即可） 1007（稳定的排序） 2159（题意较难懂） 2231 2... 阅读全文

摘要： 不大会写记忆化，各种不蛋定……const wx:array[1..4]of longint=(1,-1,0,0); wy:array[1..4]of longint=(0,0,1,-1);var ans,i,j,r,c:longint; a,f:array[0..100,0..100]of longint; visit:array[0..100,0..100]of boolean;procedur... 阅读全文

摘要： 好久没做题了，今天突然想刷个水题，这个题乍看像是一个人畜无害的数字三角形。等我充分入戏后才发现，NND，竟然是一道双重DP！双重就双重吧，在我WA了N次后，发现该题有一个充分猥琐的条件——你TMD数据有环为何不写在注释里？？？？？？？！！！！！！！！！ 分析题目，有这样一句话【每一次它都可以朝左、右、左上、右上四个方向走】使其由一个人畜无害的数字三角形蜕变成了一个双重DP。要先由底下一层的最优解更新上面一层，更新完后还要在该层左、右各扫一遍，才能得到该层最优解并用来更新下一层。 于是有： i==(n-1) - 1 { j==1 - n { f[i,j]==min(f[i+1,j+1]+a[i. 阅读全文

摘要： 代码来自dxh，注释来自lex 1 program ty1153; 2 var 3 inv,cost,nv,v,f,stk,dfn,low,min,sml:array[1..3000]of longint; 4 g,ng:array[1..3000,1..3000]of longint; 5 map:array[1..3000,1..3000]of boolean; 6 vh,vis:array[1..3000]of boolean;{vh:入栈标志,vis:访问标志} 7 i,j,k,n,m,top,time,pts,oo,ans1,ans2:lo... 阅读全文