03 2015 档案

摘要:uses math;const maxn=105; INF=2000000000;var n,m,i,x,y,sum,ans,delta:longint; map:array[0..maxn,0..maxn] of longint; flag:array[0..maxn] of... 阅读全文
posted @ 2015-03-30 14:39 rpSebastian 阅读(234) 评论(0) 推荐(0)
摘要:type arr=record v,nt:longint; end;const maxn=10008; lx=20;var lt:array[0..maxn] of longint; eg:array[0..maxn*2] of arr; d:array[0..maxn] of ... 阅读全文
posted @ 2015-03-23 14:34 rpSebastian 阅读(163) 评论(0) 推荐(0)
摘要:const lx=100004; xh=27;var L,p,nt:array[0..lx*2] of longint; lt,dfn,fr,dep:array[0..lx] of longint; f:array[0..lx*2,0..xh] of longint; ... 阅读全文
posted @ 2015-03-23 08:52 rpSebastian 阅读(173) 评论(0) 推荐(0)
摘要:博弈问题若你想仔细学习博弈论,我强烈推荐加利福尼亚大学的Thomas S. Ferguson教授精心撰写并免费提供的这份教材,它使我受益太多。(如果你的英文水平不足以阅读它,我只能说,恐怕你还没到需要看“博弈论”的时候。)Nim游戏是博弈论中最经典的模型(之一?),它又有着十分简单的规则和无比优美的... 阅读全文
posted @ 2015-03-20 21:07 rpSebastian 阅读(257) 评论(0) 推荐(0)
摘要:const maxn=600008; len=24; var x,y,z,n,m,tot,lx,i:longint; sum:array[0..maxn] of longint; rt:array[0..maxn] of longint; time,l,r:array[0..maxn*len] of longint; ch:char; procedur... 阅读全文
posted @ 2015-03-20 16:59 rpSebastian 阅读(202) 评论(0) 推荐(0)
摘要:1 type xh=record 2 x,y:double; 3 end; 4 arr=array[0..1000008] of xh; 5 var n,m:longint; 6 s1,s2:ansistring; 7 a,b,g,w:a... 阅读全文
posted @ 2015-03-11 19:55 rpSebastian 阅读(206) 评论(0) 推荐(0)
摘要:type arr=record u,v,w,nt:longint; end; var i,j,m,n,x,y:longint; ans:int64; a:array[0..200008] of arr; fa:array[0..200008] of longint; function find(x:longint):longint; beg... 阅读全文
posted @ 2015-03-10 12:51 rpSebastian 阅读(276) 评论(0) 推荐(0)
摘要:var a:array[0..208,0..208] of int64; mo:int64; i,j,n,temp:longint;function guess:int64;var i,j,k,t:longint; ans:int64;begin ans:=1; for... 阅读全文
posted @ 2015-03-01 10:46 rpSebastian 阅读(214) 评论(0) 推荐(0)