batman

@echo off&setlocal enabledelayedexpansion
for %%i in (0 2 4 5 6 8) do set "_%%i=a"
echo 1-1000內的素數如下：>素數.txt
for /l %%a in (1,1,1000) do (
     set "str=%%i"
     if not defined _!str:~-1! (
       set /a a=%%a/2+1,num=0
       call :lp %%a
     )
)
start 素數.txt
goto :eof
:lp
for /l %%i in (1,1,%a%) do (
     set /a b=%1/%%i*%%i
     if !b! equ %1 set /a num+=1
     if !num! equ 2 goto :eof
)
if %num% lss 2 echo %1 >>素數.txt
复制代码

batman

二樓的代碼效率是個問題，完全可以不要驗證一個數所有的約數，除本身外只要約數大於兩個就可以判斷出不是素數了。

batman

原帖由 youxi01 于 2008-10-31 22:25 发表
稍微修整：@echo off 2>nul 3>nul
setlocal enabledelayedexpansion
for /l %%i in (3 2 1000) do (
        set flag=0
        for /l %%j in (3 2 37) do set /a 1/^(%%i%%%%j^) ||set/a flag+=1
        if !flag! LEQ 1 echo %% ...

体现出兄扎实的数学功底，真是望尘莫及啊！