雷劈数的算法 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

查找雷劈数,用批处理可是可以就是效率太慢了,
最小雷劈数是81,就从81开始,到10000代码如下,
若还想增加位数,第二句for的数字也要同时增加.


@echo off
set num=
setlocal EnableDelayedExpansion
for /l %%a in (81 1 10000) do (
set shu=%%a
set/p=!shu! <nul
set/p=!num! <nul
for /l %%b in (1 1 4) do (
set qian=!shu:~0,%%b!
set hou=!shu:~%%b!
call :lis
set hou=!hou:b=!
set/a he=!qian!+!hou!
set/a jie=!he!*!he!
if !jie! equ %%a (
set var=^(!qian! + !hou! = !he!^)	^(!he! * !he!^) 		= !jie!
echo !var!
)))
echo\&echo  查找完毕......按任意键退出...
pause>nul
goto :eof
:lis
set hou=%hou%b
:loop
if %hou%==b set hou=0&goto :eof
if %hou:~0,1% equ 0 set hou=%hou:~1%&goto loop
goto :eof

[ Last edited by 26933062 on 2007-8-4 at 12:23 AM ]

第1楼　dy2003310	发表于 2007-08-03 17:10
初级用户　发帖 68　积分 180　来自 China
雷劈数的算法小弟在榕哥论坛看到一篇涉及到雷劈数的帖子 http://bbs.netxeyes.org/viewthread.php?tid=700&extra=page%3D1 哪位兄弟愿意写个求雷劈数的bat??

第2楼　zh159	发表于 2007-08-03 18:06
金牌会员　发帖 1,467　积分 3,687
参考： http://zhidao.baidu.com/question/31909925.html

第3楼　dy2003310	发表于 2007-08-03 20:44
初级用户　发帖 68　积分 180　来自 China
谢谢zh159兄可惜偶太菜了,编不出

第4楼　26933062	发表于 2007-08-04 00:21
银牌会员　发帖 879　积分 2,268
查找雷劈数,用批处理可是可以就是效率太慢了, 最小雷劈数是81,就从81开始,到10000代码如下, 若还想增加位数,第二句for的数字也要同时增加. @echo off set num= setlocal EnableDelayedExpansion for /l %%a in (81 1 10000) do ( set shu=%%a set/p=!shu! <nul set/p=!num! <nul for /l %%b in (1 1 4) do ( set qian=!shu:~0,%%b! set hou=!shu:~%%b! call :lis set hou=!hou:b=! set/a he=!qian!+!hou! set/a jie=!he!!he! if !jie! equ %%a ( set var=^(!qian! + !hou! = !he!^) ^(!he! !he!^) = !jie! echo !var! ))) echo\&echo 查找完毕......按任意键退出... pause>nul goto :eof :lis set hou=%hou%b :loop if %hou%==b set hou=0&goto :eof if %hou:~0,1% equ 0 set hou=%hou:~1%&goto loop goto :eof [ Last edited by 26933062 on 2007-8-4 at 12:23 AM ]

第5楼　dy2003310	发表于 2007-08-04 10:55
初级用户　发帖 68　积分 180　来自 China
哇!!! 太好了!!! 26933062 强!!!