模板
chenwanqiu
帅气
展开
-
极烦的bfs·迷宫
var i,j,n,m,x,y,tot:integer; a:array[1..1000,1..1000] of char; que:array[1..1000,1..2] of integer; v:array[1..1000,1..1000] of boolean; xx:array[1..4] of integer = (0,1,0,-1);原创 2016-11-03 12:20:17 · 192 阅读 · 0 评论 -
bfs
var a:array[1..100,1..100] of 0..1; v:array[1..100] of boolean; i,j,n:integer; procedure bfs; var q:array[1..100] of integer; l,r:integer; begin l:=1;r:=1;q[l]:=1;原创 2016-11-03 12:27:00 · 161 阅读 · 0 评论 -
dfs压缩 有向带权图
var i,j,total,max,r,path,n,m,x,y,z,s:integer; a:array[0..11] of integer;//链表 b:array[1..100,1..2] of integer;//链表2 c:array[1..100,1..3] of integer;//原表 hash:array[1..100] of boolea原创 2016-11-03 18:19:49 · 365 阅读 · 0 评论 -
归并排序模板w(kl)
procedure sort(var a:array[1..200000] of longint;l,r:longint); var b,c:array[1..200000] of longint; procedure MERGE_SORT(l,r:longint); var mid,i,t1,t2:longint; begin if l<>r then begin mid:原创 2016-11-11 18:22:41 · 287 阅读 · 0 评论 -
归并排序求逆序对kl
欢迎使用Markdown编辑器写博客本Markdown编辑器使用StackEdit修改而来,用它写博客,将会带来全新的体验哦: Markdown和扩展Markdown简洁的语法 代码块高亮 图片链接和图片上传 LaTex数学公式 UML序列图和流程图 离线写博客 导入导出Markdown文件 丰富的快捷键 快捷键 加粗 Ctrl + B 斜体 Ctrl + I 引用 Ctrl原创 2016-11-11 17:11:13 · 199 阅读 · 0 评论 -
并查集基础题:relation
const ww=’relation.’; maxn=20000;//直接赋值会T var i,m,q:longint; n,x,y,r1,r2:integer; a:array[0..maxn+1] of integer;function findroot(x:integer):integer; var path:array[1..maxn] of longi原创 2016-11-09 07:45:15 · 241 阅读 · 0 评论 -
二叉排序堆基础模板题
const ww=’ugly.’; var n,len,i:longint; j,k:int64; heap:array[0..6000] of int64;procedure init; begin assign(input,ww+’in’); reset(input); assign(output,ww+’out’); rewrite(output);原创 2016-11-09 07:46:44 · 216 阅读 · 0 评论