算法
doggyzheng
初二蒟蒻一枚
展开
-
线性筛法
const maxn=1000000007; var bz:array[1..2000000] of boolean; ss:array[0..1000000] of longint; mu:array[1..2000000] of longint; i,j,n,t:longint; begin原创 2017-03-27 20:36:01 · 206 阅读 · 0 评论 -
线性筛法
const maxn=1000000007; var bz:array[1..2000000] of boolean; ss:array[0..1000000] of longint; i,j,n,t:longint; begin readln(n); fillchar(bz,sizeof(bz),true); for i:原创 2017-03-29 19:43:00 · 294 阅读 · 0 评论 -
对于SPFA的优化
SPFA对于稀疏图非常的有用,然而对于稠密图就是辣鸡。。(还是很厉害的)。 稠密图可以使用dij,但是SPFA真的败给了稠密图了吗? 答案是不是的,优化强着呢,杠杠滴~ 优化一:SLF 怎么做呢? 假设我们当前在跑SPFA的最短路(下面都是)。 设我们的队头为i,要加进去队列的数为j,那么我们就可以根据最短路,加出如下优化 若dis[j] 为什么呢?原创 2017-03-25 16:40:35 · 696 阅读 · 0 评论 -
KMP
var a:array[1..100000] of longint; n,i,x:longint; sum:int64; begin readln(n); for i:=1 to n do read(a[i]); for i:=2 to n-1 do begin原创 2017-04-26 20:17:33 · 171 阅读 · 0 评论 -
2017.07.11【NOIP提高组】模拟赛B组小结
T1jzoj1279. 解题Description 过去的日子里,农夫John的牛没有任何题目. 可是现在他们有题目,有很多的题目.精确地说,他们有P (1 <= P <= 300) 道题目要做. 他们还离开了农场并且象普通人一样找到了工作. 他们的月薪是M (1 <= M <= 1000) 元. 他们的题目是一流的难题,所以他们得找帮手.帮手们不是免费的,但是他们能保证在一个月内作出任何题原创 2017-07-11 20:59:36 · 371 阅读 · 0 评论 -
Exkmp
var extand,next:array[0..100000] of longint; s,s1:ansistring; l,l1,n,m,i,j,p,a:longint; begin readln(s); readln(s1); l:=length(s); l1:=le原创 2017-07-11 16:30:01 · 294 阅读 · 0 评论 -
快速幂
function ksm(a,b:longint):longint; var y,x:longint; begin ksm:=1; y:=b; x:=a; while y>0 do begin if y and 1=1 then ksm:=(ksm*x)m原创 2017-03-27 20:34:50 · 181 阅读 · 0 评论