【出题】批处理“解方程”

lxzzr

目的：活跃下气氛，最近大家比较闲，无论新手或老手都可以来试试。


一个数的3次方是四位数，4次方是六位数，四位数和六位数又刚好是0-9这几个数字（不重复），求这个数


注：视代码的效率、灵活加分。

[ 本帖最后由 lxzzr 于 2010-4-14 09:13 编辑 ]

523066680

我记得我猜对过。。。。 现在想不起来了


噢 当时这样想的 3次方算要4位数的话，好像 要有十几才行，马上就抽了一个妙龄岁数:18
然后就对了。

要说明的是，很多“仁”并不是闲，是抽时间来的！

[ 本帖最后由 523066680 于 2010-4-14 10:49 编辑 ]

hanyeguxing

1. @echo off
   
2. :hanye
   
3. set/a n+=1,a=n*n*n
   
4. if %a% lss 1000 goto:hanye
   
5. if %a% leq 9999 (setlocal enabledelayedexpansion
   
6. set/a b=n*a&if !b! geq 100000 if !b! leq 999999 (set c=%a%!b!
   
7. for /l %%i in (0,1,9) do set !c:~%%i,1!==
   
8. for /l %%i in (0,1,9) do if not defined %%i set set==
   
9. if not defined set echo.%n%&endlocal)
   
10. goto:hanye)
    
11. pause

复制代码

[ 本帖最后由 hanyeguxing 于 2010-4-14 19:23 编辑 ]

neorobin

1. @echo off&setlocal enabledelayedexpansion
   
2. echo %time%&set /a n=9
   
3. :continue
   
4. set /a n+=1,cube=n*n*n,biq=cube*n & set "comb=!cube!!biq!"
   
5. if "!comb:~9,1!" equ "" goto :continue
   
6. if "!comb:~10,1!" equ "" ( setlocal enabledelayedexpansion
   
7. for /l %%i in (0,1,9) do set "!comb:~%%i,1!=Y"
   
8. if "!1!!2!!3!!4!!5!!6!!7!!8!!9!!0!"=="YYYYYYYYYY" echo !n!的3次方=!cube!, !n!的4次方=!biq!
   
9. endlocal
   
10. ) else goto :break
    
11. goto :continue
    
12. :break
    
13. echo 求解结束&echo %time%&pause

复制代码

[ 本帖最后由 neorobin 于 2010-4-14 21:38 编辑 ]

x9tiancmd

（GNU兄台不好意思，　把您的名字打错了现在解正过来了 , 我是流览器开两页面，　不同主题，　一个主题是你的回复（在二楼）　　刚才一下点错了鼠标，写上了你的大名，汗(￣口￣)!!　　，其实我是说本贴三楼兄台，　（看错了贴子还由之可，不但把三楼看成二楼了，把楼层人名搞错了（搞错了还写错），　最搞笑的是打分也打错了○(￣﹏￣)○,,看来刚才打CF打得有点头晕了，嗯睡觉去，　哎天大的笑话，让楼下见笑了）


　　后面的判断　四位数，六位数，　有无重复有点不同
set/a b=n*a&if !b! geq 100000 if !b! leq 999999　(echo.%a%!b!|find"0"|find "1"|find "2"| find ....　>nul&&echo.%n%) else (echo.题目无解）

晕评分点错了人，　因当是评在三楼楼　兄上面，　一下点错了.╮(￣﹏￣)╭

[ 本帖最后由 x9tiancmd 于 2010-4-14 21:45 编辑 ]

GNU

问一下GUN是谁啊？

523066680

扭曲一下
是从普通的思想出发的，10位数，从0-9 ，
如果中间有重复的话，必然有一个数字不存在。
刚好是要求10位中有10个不同的数，累计他们是否全部出现过即可。

借用了nerobin的代码体

1. @echo off&setlocal enabledelayedexpansion
   
2. echo %time%&set /a n=9
   
3. :continue
   
4. set /a n+=1,cube=n*n*n,biquadrate=cube*n,num=0
   
5. set "combination=!cube!!biquadrate!"
   
6. if "!combination:~9,1!" equ "" goto :continue
   
7. if "!combination:~10,1!" neq "" goto :break
   
8. for /l %%a in (0,1,9) do (if not "!combination:%%a=!"=="!combination!" (set /a num+=1))
   
9. if %num% equ 10 (echo %n% _ %combination%)
   
10. :break
    
11. echo 求解结束&echo %time%&pause

复制代码

[ 本帖最后由 523066680 于 2010-4-14 21:57 编辑 ]

hanyeguxing

个人认为set n=9不适合写在批处理里，这样失去了求解的意义
那不如直接开始就for /l %%i in (10,1,21) do...了

[ 本帖最后由 hanyeguxing 于 2010-4-14 22:05 编辑 ]

523066680

有点道理的，不过还行吧。
nerobin的位数判断部分很严密啊。1 到 9 就是多9个判断+跳转。

不过我还这样认为，0*0*0 ，1*1*1 ,2*2*2，3*3*3  不能构成4位数，是一件明显的事情
于是思想中跳跃地推到10*10*10 刚好到4位，也很明显啊

[ 本帖最后由 523066680 于 2010-4-14 22:09 编辑 ]

hanyeguxing

原帖由 523066680 于 2010-4-14 22:06 发表
有点道理的，不过还行吧。
nerobin的位数判断部分很严密啊。1 到 9 就是多9个判断+跳转。

不过我还这样认为，0*0*0 ，1*1*1 ,2*2*2，3*3*3  不能构成4位数，是一件明显的事情
于是思想中跳跃地推到10*10*10 刚好 ...

我们不适合用自己的熟悉运算结果来替代批处理的运算过程，个人观点而已。

lxzzr

10 的3次方是1000，既然这个数的三次方是四为位，那么他它一定大于10咯....


现在的方法都是“穷举法”，有没有不用“穷举法”的？？？

[ 本帖最后由 lxzzr 于 2010-4-14 22:19 编辑 ]

523066680

寒月孤星的观点跟batman的一致哦~   

关于“现在的方法都是“穷举法”，有没有不用“穷举法”的？？？”

有，我2楼那个用猜的，18是一个非常#@￥！…… 的数字

lxzzr

汗，说不过你....

523066680

说真的 我也很期待一个非穷举的思路
看到的话一定加分+加技术+膜拜一下

hanyeguxing

因为 n 的3次方为4位数，所以 n 的范围为10到21
因为 n 的4次方为6位数，所以 n 的范围为18到31
所以 n 的交集范围为18到21
尾数为0、1、5、6的数字，其3次方与4次方尾数全相同，所以排除20、21，剩余18、19。
因为20的4次方为160000，所以19的4次方首位为1，又因为19的尾数为9，其4次方的尾数也为1，重复，所以这个数字只能是18。。。。。。好象没批处理什么事了，闪，免得挨砖头，嘿嘿

[ 本帖最后由 hanyeguxing 于 2010-4-14 23:29 编辑 ]