inittab

也发一个，效率是个大问题。数字越大速度几何级下降。

@echo off&setlocal enabledelayedexpansion
cls
:begin
set/p var=请输入大于6的偶数(q退出):
if "%var%"=="q" (goto :eof)
set/a 1/var 2>nul || goto begin
set/a yn=var%%2
if !var! lss 6 (goto begin) else if !yn! neq 0 (goto begin)

set/a var0=var/2
for /l %%i in (3,1,!var0!) do (
set /a num1=%%i,num2=var-num1

call :lp !num1!
if !ok!==yes (call :lp !num2!)
if !ok!==yes (echo !var!=!num1!+!num2!)
)

goto begin



:lp
set ok=yes
for /l %%x in (2,1,!var0!) do (
if %1 gtr %%x (
set/a tt=%1 %% %%x
if !tt! equ 0 (set ok=no&goto :eof)
)
)
复制代码

inittab

原帖由 lhjoanna 于 2009-4-25 12:59 发表
采用位运算构造素数表，具体思路：比如构造10000以内的素数表，就用10000/32个变量来表示这10000个数的状态，每一个数都有32位，用每一位表示一种状态，1表示是素数，0表示非素数，这样就可以省下32倍的空间。比如判 ...

太厉害了。对移位运算和逻辑运算还不太明白。先下来收藏