批处理求1000以内的所有素数

Rank: 8 Rank: 8

帖子: 342
积分: 3936
技术: 9
捐助: 0
注册时间: 2008-8-27

2楼

发表于 2008-10-31 20:35 | 只看该作者

@echo off
setlocal ENABLEDELAYEDEXPANSION
:a
set /a num+=1
if %num%==1 goto a
for %%a in (2 3) do if %num%==%%a echo %%a&goto a
if %num%==1000 pause>nul&exit
set /a num2=num-1
for /l %%b in (2 1 %num2%) do (
set /a tp=%num%%%%%b
if !tp!==0 set tp2=a
)
set tp2=&if "%tp2%"=="" echo %num%
goto a
复制代码

论坛标题管理观察员

batman

Rank: 8 Rank: 8

帖子: 2702
积分: 14562
技术: 177
捐助: 630
注册时间: 2008-6-16

3楼

发表于 2008-10-31 20:53 | 只看该作者

@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

Rank: 8 Rank: 8

帖子: 2702
积分: 14562
技术: 177
捐助: 630
注册时间: 2008-6-16

4楼

发表于 2008-10-31 20:57 | 只看该作者

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

＊＊＊共同提高＊＊＊

Rank: 8 Rank: 8

帖子: 962
积分: 2449
技术: 40
捐助: 0
注册时间: 2007-10-25

5楼

发表于 2008-10-31 21:39 | 只看该作者

楼上的都是低效率

Rank: 8 Rank: 8

帖子: 962
积分: 2449
技术: 40
捐助: 0
注册时间: 2007-10-25

6楼

发表于 2008-10-31 22:15 | 只看该作者

不是完全模拟，经过了人工处理
测试代码：

@echo off
setlocal enabledelayedexpansion
for /l %%i in (3 2 1000) do (
	set flag=0
	for /l %%j in (3 2 37) do (
		set /a var=%%i%%%%j
		if !var! EQU 0 set /a flag+=1
	)
	if !flag! LEQ 1 echo %%i
)

pause>nul
复制代码

Rank: 8 Rank: 8

帖子: 962
积分: 2449
技术: 40
捐助: 0
注册时间: 2007-10-25

7楼

发表于 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 %%i
)

pause>nul
复制代码

3 评分人数

Gin_Q: 厉害！技术 + 1
wxcute: 经典，超快阿。 2 >nul 与 1/0|| 用得好。 ...PB + 10 技术 + 1
pusofalse: 高PB + 8

make

三级士官

Rank: 3 Rank: 3

帖子: 7
积分: 216
技术: 0
捐助: 0
注册时间: 2008-10-31

8楼

发表于 2008-10-31 22:44 | 只看该作者

for /l %%i in (1 3 999) do echo %%i

zqy

五级士官

Rank: 4

帖子: 35
积分: 316
技术: 0
捐助: 0
注册时间: 2008-10-9

9楼

发表于 2008-10-31 22:59 | 只看该作者

大家能不能给点翻译啊?

砂石下的泉水,掘得越深,泉水会越清吗?

batman

Rank: 8 Rank: 8

帖子: 2702
积分: 14562
技术: 177
捐助: 630
注册时间: 2008-6-16

10楼

发表于 2008-11-1 00:48 | 只看该作者

原帖由 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 %% ...

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

＊＊＊共同提高＊＊＊

BBCC

中尉

Rank: 5 Rank: 5

帖子: 245
积分: 914
技术: 1
捐助: 0
注册时间: 2008-10-25

11楼

发表于 2008-11-1 13:04 | 只看该作者

怎么youxi的是从67开始?

Rank: 8 Rank: 8

帖子: 962
积分: 2449
技术: 40
捐助: 0
注册时间: 2007-10-25

12楼

发表于 2008-11-1 16:56 | 只看该作者

回复 11楼的帖子

呵呵，那是因为批处理一屏显示不了那么多

如果在运行初期你就按ctrl+c，或者echo到一个文本文件就可以看到全部了

yslyxqysl

Rank: 8 Rank: 8

帖子: 342
积分: 3936
技术: 9
捐助: 0
注册时间: 2008-8-27

13楼

发表于 2008-11-1 17:29 | 只看该作者

原帖由 youxi01 于 2008-11-1 16:56 发表
呵呵，那是因为批处理一屏显示不了那么多

如果在运行初期你就按ctrl+c，或者echo到一个文本文件就可以看到全部了

if not "%1"=="more" call "%~0"|more&exit

论坛标题管理观察员

BBCC

中尉

Rank: 5 Rank: 5

帖子: 245
积分: 914
技术: 1
捐助: 0
注册时间: 2008-10-25

14楼

发表于 2008-11-1 17:55 | 只看该作者

原帖由 youxi01 于 2008-11-1 16:56 发表
呵呵，那是因为批处理一屏显示不了那么多

如果在运行初期你就按ctrl+c，或者echo到一个文本文件就可以看到全部了

原来如此

wxcute

Rank: 8 Rank: 8

帖子: 618
积分: 6100
技术: 9
捐助: 0
注册时间: 2008-8-10

15楼

发表于 2008-11-3 10:48 | 只看该作者

写个用文件的

@echo off
setlocal enableDelayedExpansion
>ss.txt echo 2
for /l %%i in (3 2 1000) do (
　for /f %%j in (ss.txt) do (
　　set/a mod=%%i%%%%j
　　if !mod! equ 0 set flag=1
　)
　if defined flag (set flag=) else (>>ss.txt echo %%i)
)
type ss.txt
pause
goto :eof
复制代码