level 3
![[喷]](/static/emoticons/u55b7.png)
@未闻花名的当初 来围观伸手![[滑稽]](/static/emoticons/u6ed1u7a3d.png)
level 15
![[黑线]](/static/emoticons/u9ed1u7ebf.png)
您完全不用伸手吧![[啊]](/static/emoticons/u554a.png)
![[胜利]](/static/emoticons/u80dcu5229.png)
![[开心]](/static/emoticons/u5f00u5fc3.png)
level 7
→_→
其实可以这么搞
判断质数用MILLER-RABIN
分解质因数用RHO
然后建一个HASH
从N倒着循环，每个N分解一次
把质因数存进HASH
Mller-Rabin算法复杂度一个快速幂
RHO启发式函数写的好 随机种子写的好 人品好的话2^63-1数据是秒出
HASH就用普通的MOD好了
然后一直枚举到SQRT(N)
这样大概能找到N范围内全部的素数
2014年09月26日 05点09分
3
其实可以这么搞
判断质数用MILLER-RABIN
分解质因数用RHO
然后建一个HASH
从N倒着循环，每个N分解一次
把质因数存进HASH
Mller-Rabin算法复杂度一个快速幂
RHO启发式函数写的好 随机种子写的好 人品好的话2^63-1数据是秒出
HASH就用普通的MOD好了
然后一直枚举到SQRT(N)
这样大概能找到N范围内全部的素数
谢谢
2014年09月28日 13点09分
level 9
var n,i:longint;
function prime(n:longint):boolean;
var i:longint;
begin
for i:=1 to trunc(sqrt(n)) do
if n mod i=0 then exit(false);
exit(true);
end;
begin
read(n);
for i:=1 to n do
if prime(i) then write(i,* *);
writeln;
end.
2014年09月26日 14点09分
4
function prime(n:longint):boolean;
var i:longint;
begin
for i:=1 to trunc(sqrt(n)) do
if n mod i=0 then exit(false);
exit(true);
end;
begin
read(n);
for i:=1 to n do
if prime(i) then write(i,* *);
writeln;
end.
谢谢 ![[太开心]](/static/emoticons/u592au5f00u5fc3.png)
2014年09月28日 13点09分
回复 飞龙在天201033 :
2014年09月28日 13点09分
