标题: 在减法中突破set/a的运算位数限制 [打印本页]
作者: terse 时间: 2008-4-5 23:02 标题: 在减法中突破set/a的运算位数限制
减法中突破set/a的运算位数限制，应用在除法中被除数可以突破位数限制，但对除数还是有位数限制所以就不发除法的了!
REM 此P纯娱乐,
@echo off
SET Size=100001000789909099832539
SET Free=9983253910007899090
:stf
if %Size:~-1% geq %Free:~-1% (
set/a tx=%Size:~-1%-%Free:~-1%
call set tr=%%tx%%%tr%
set Size=%Size:~0,-1%&set Free=%Free:~0,-1%
if not defined Free goto next
goto stf
)
set/a tx=1%Size:~-1%-%Free:~-1%
call set tr=%%tx:~0,1%%%tr%
set Size=%Size:~0,-1%&set Free=%Free:~0,-1%
set tq=1%Size:~-9%
set/a tq-=1
set Size=%Size:~0,-9%%tq:~1%
if defined Free goto stf
:next
for /f "delims=0 tokens=*" %%i in ("%Size%%tr%") do echo %%i
pause
SET Size=100001000789909099832539
SET Free=9983253910007899090
:stf
if %Size:~-1% geq %Free:~-1% (
set/a tx=%Size:~-1%-%Free:~-1%
call set tr=%%tx%%%tr%
set Size=%Size:~0,-1%&set Free=%Free:~0,-1%
if not defined Free goto next
goto stf
)
set/a tx=1%Size:~-1%-%Free:~-1%
call set tr=%%tx:~0,1%%%tr%
set Size=%Size:~0,-1%&set Free=%Free:~0,-1%
set tq=1%Size:~-9%
set/a tq-=1
set Size=%Size:~0,-9%%tq:~1%
if defined Free goto stf
:next
for /f "delims=0 tokens=*" %%i in ("%Size%%tr%") do echo %%i
pause
作者: slore 时间: 2008-4-5 23:07
模拟人工计算麽？
作者: Shinaterry 时间: 2008-4-5 23:10
mark
作者: plp626 时间: 2008-4-6 00:12
MS很厉害的，看过不得不爱版主的，不知和楼主的算法有和不同？
不妨介绍下算法