noip经典
文章平均质量分 64
sckbaby
学生EFZ
展开
-
O(NlogN)的最长不下降子序列LIS
O(N^2)用DP就行啦,O(NlogN)的最长不下降子序列LIS原创 2014-11-07 08:32:57 · 753 阅读 · 0 评论 -
HDU3068 最长回文(Manacher算法)
链接: ttp://acm.hdu.edu.cn/showproblem.php?pid=3068var p:array[1..1100000] of longint; s,s1:ansistring; mx,id,i,j,len,max:longint;function min(a,b:longint):longint;begin if aend;原创 2015-10-04 21:19:02 · 369 阅读 · 0 评论 -
求强连通分量之tarjan算法
tarjan算法详解并附有pascal标程原创 2015-10-18 10:51:45 · 601 阅读 · 0 评论 -
网络流基础
1.流网络G=(V,E)是一个有向图,其中每条边(u,v)∈E均有一个非负容量c(u,v)>=0。如果(u,v)不属于E,则假定c(u,v)=0。流网络中有两个特别的顶点:源点s和汇点t。下图展示了一个流网络的实例(其中斜线左边的数字表示实际边上的流,右边的数字表示边的最大容量): 对一个流网络G=(V,E),其转载 2015-01-26 20:41:08 · 692 阅读 · 0 评论 -
网络流习题
挺不错的程序,有关网络流的,输出为最大流量~原创 2015-01-26 23:56:00 · 608 阅读 · 0 评论 -
【最短路径】SPFA算法
var dist,fa,q:array[1..100] of longint; cost:array[1..100,1..100] of longint; f:array[1..100] of boolean; n,m,r,i,j,a,b,c,p:longint;procedure spfa(x:longint);var h,t,i:longint;原创 2014-11-06 19:59:46 · 633 阅读 · 1 评论 -
【最短路径】dijkstra算法 pascal
var f:array[1..100] of boolean; cost:array[1..100,1..100] of longint; fa,dist:array[1..100] of longint; n,m,r,a,b,c,i,j,p,min:longint;begin readln(n,m,r); for i:=1 to m do begi原创 2014-11-06 20:26:02 · 1360 阅读 · 0 评论 -
康拓展开
康托展开的公式把一个整数X展开成如下形式: X=a[n]*(n-1)!+a[n-1]*(n-2)!+...+a[i]*(i-1)!+...+a[2]*1!+a[1]*0! 其中,a为整数,并且0康托展开的应用实例{1,2,3,4,...,n}表示1,2,3,...,n的排列如 {1,2,3} 按从小到大排列一共6个。123 132 213 231 312 3转载 2014-11-06 08:48:37 · 661 阅读 · 0 评论 -
【最小生成树】kruskal算法(用并查集)pascal
var a,b,v,p:array[1..100] of longint; n,m,i,ans,tot,x,y:longint;procedure sort(l,r:longint);var i,j,x,y:longint;begin i:=l;j:=r;x:=v[(l+r) div 2]; repeat while v[i]原创 2014-11-04 18:48:44 · 1547 阅读 · 0 评论 -
exgcd扩展欧几里得--noip同余方程
var a,b,d,x,y:int64;procedure gcd(a,b:int64);var t:int64;begin if a mod b=0then begin x:=0;y:=1; end else begin gcd(b,a mod b);t:=x;x:=y;y:=t-(a div b)*y原创 2014-11-01 11:18:22 · 669 阅读 · 0 评论 -
斜率优化DP 【pascal】
Print ArticleTime Limit: 9000/3000 MS (Java/Others) Memory Limit: 131072/65536 K (Java/Others)Problem DescriptionZero has an old printer that doesn't work well sometimes. As it is a原创 2014-10-30 23:01:55 · 533 阅读 · 0 评论 -
单调队列典型例题——广告印刷
var h,left,right,p,q:array[0..400000] of longint; i,n,start,over,max:longint;begin readln(n); for i:=1 to n do read(h[i]); start:=1; for i:=1 to n do begin while (over>=st原创 2014-10-30 21:46:58 · 1509 阅读 · 0 评论 -
【树状数组】段修改,点查询
【树状数组】段修改,点查询利用差分,先得到一个差分序列(如:(1,2,3,5)的差分序列为(1,1,1,2))当[i,j]段中所有数均加上数m时,在差分序列的i位置加上m,在j+1位置减去m即可求和利用树状数组原创 2014-11-08 19:53:14 · 981 阅读 · 0 评论 -
归并排序求逆序对
自己写的归并排序求逆序对,稍多了几行原创 2014-11-02 22:54:27 · 577 阅读 · 0 评论 -
反质数(noi题库)
题目:http://noi.openjudge.cn/ch0407/7591/简单爆搜肯定会超时~剪枝也没用~∵2*3*...*31>20000000 ∴不同质因子个数最多12个且同样多的因数,质因子小的总比用质因子大的合算枚举每个质因子的次方(不超过25,∵2^25>20000000),定义数组ans[i],表示质因子个数为i的最小数,这是一个用深搜进行的不断更新ans的原创 2015-10-05 22:43:57 · 1089 阅读 · 0 评论