[练习]批处理实现角谷猜想

qq641255849

日本一位中学生发现一个奇妙的“定理”，请角谷教授证明，而教授无能为力，于是产生角谷猜想。
　　猜想的内容是：任给一个自然数，若为偶数除以2，若为奇数则乘3加1，得到一个新的自然数后按照上面的法则继续演算，若干次后得到的结果必然为1。

用批实现验证吗?(附上演算过程)

qq641255849

原帖由 pusofalse 于 2008-9-14 16:02 发表
@echo off&setlocal enabledelayedexpansion
set/p num=Input a numeric:
:loop
set/a mod=num%%2,x+=1
if %mod% equ 1 (
    set "_%x%=!num! * 3 + 1"
    set/a num=num*3+1
    set "_%x%=!_%x%! = !num ...

版主的不错哦
和我的思路一样...

qq641255849

原帖由 slore 于 2008-9-14 23:43 发表
没人用&运算?比%快嗬

slore讲解下吧...

qq641255849

我的答案

@echo off

setlocal enabledelayedexpansion
:1
set  num=%random%%random%%random%
:a
set num1=%num%
if %num% equ 1 (echo OK!&pause&goto :1)
set /a v=%num%%%2
if %v% equ 0 (set /a num=%num%/2&echo %num1%/2=!num!) else (set /a num=%num%*3+1&echo %

num1%*3+1=!num!)
pause>nul&goto :a
复制代码

qq641255849

没看懂...
(deci) 1000 ----> (bin) 1111101000
(deci) 64     ----> (bin) 0001000000
这里是什么意思？
转为二进制？

[ 本帖最后由 qq641255849 于 2008-9-15 20:59 编辑 ]