![](https://img-blog.csdnimg.cn/20201014180756916.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
noip经典
文章平均质量分 64
sckbaby
学生EFZ
展开
-
O(NlogN)的最长不下降子序列LIS
O(N^2)用DP就行啦,O(NlogN)的最长不下降子序列LIS原创 2014-11-07 08:32:57 · 756 阅读 · 0 评论 -
HDU3068 最长回文(Manacher算法)
链接: ttp://acm.hdu.edu.cn/showproblem.php?pid=3068 var p:array[1..1100000] of longint; s,s1:ansistring; mx,id,i,j,len,max:longint; function min(a,b:longint):longint; begin if a end;原创 2015-10-04 21:19:02 · 372 阅读 · 0 评论 -
求强连通分量之tarjan算法
tarjan算法详解并附有pascal标程原创 2015-10-18 10:51:45 · 604 阅读 · 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 · 696 阅读 · 0 评论 -
网络流习题
挺不错的程序,有关网络流的,输出为最大流量~原创 2015-01-26 23:56:00 · 613 阅读 · 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 · 637 阅读 · 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 · 1363 阅读 · 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 · 664 阅读 · 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 · 1551 阅读 · 0 评论 -
exgcd扩展欧几里得--noip同余方程
var a,b,d,x,y:int64; procedure gcd(a,b:int64); var t:int64; begin if a mod b=0 then 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 · 671 阅读 · 0 评论 -
斜率优化DP 【pascal】
Print Article Time Limit: 9000/3000 MS (Java/Others) Memory Limit: 131072/65536 K (Java/Others) Problem Description Zero has an old printer that doesn't work well sometimes. As it is a原创 2014-10-30 23:01:55 · 539 阅读 · 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 · 1513 阅读 · 0 评论 -
【树状数组】段修改,点查询
【树状数组】段修改,点查询 利用差分,先得到一个差分序列(如:(1,2,3,5)的差分序列为(1,1,1,2)) 当[i,j]段中所有数均加上数m时,在差分序列的i位置加上m,在j+1位置减去m即可 求和利用树状数组原创 2014-11-08 19:53:14 · 984 阅读 · 0 评论 -
归并排序求逆序对
自己写的归并排序求逆序对,稍多了几行原创 2014-11-02 22:54:27 · 581 阅读 · 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 · 1093 阅读 · 0 评论