批处理搜索素数（1~100000）

youxi01

1. ::code by youxi01@bbs.bathome.net,2006-10-3
   
2. ::说明:搜索素数(质数),在1~100000之间的素数搜索较快.
   
3. 
   
4. ===================cut here====================
   
5. @echo off
   
6. ::将素数5、7写入文件
   
7. echo 5 >Result.txt
   
8. echo 7 >>Result.txt
   
9. ::------------------
   
10. set /a Num1=2
    
11. set /a Num2=3
    
12. set /a Num=10
    
13. ::启用"延迟环境变量"
    
14. setlocal enabledelayedexpansion
    
15. ::-----------------------------
    
16. :Start
    
17. set /a Num=%Num%+1
    
18. title 正在检测：%Num%
    
19. ::求余数
    
20. set /a Num3=%Num%%%Num1%
    
21. set /a Num4=%Num%%%Num2%
    
22. ::------------------------
    
23. ::如果能被2或3整除，就直接跳到Start（以免频繁读写Result.txt）。
    
24. if %Num3% EQU 0 goto :Start
    
25. if %Num4% EQU 0 goto :Start
    
26. ::---------------------------------------------------------
    
27. for /f %%i in (Result.txt) do (
    
28. set /a T=%%i
    
29. set /a S=%%i*%%i
    
30. 
    
31. rem 如果S（平方）都比数字%Num%小，就看它能否整除变量%Num%，如果能，则判断为合数，跳出循环；
    
32. rem 否则（即%Num%的平方根内无数字能整除%Num%）就直接将%Num%记入结果，跳出循环。
    
33. 
    
34. if !S! leq %Num% (
    
35. set /a T1=%Num%%%!T!
    
36. if !T1! EQU 0 goto :Start
    
37. ) else echo %Num%>>Result.txt & goto :Start
    
38. rem ------------------------------------------
    
39. )
    
40. pause

复制代码

garyng

一、快
二、简洁（对我来说～）