One of the results produced in the process of writing other batch files. The draft paper is in bathome's chatter section and in cn-dos's blog
Function: multiply two numbers with no digit limit
Input format like 10 20
You can choose a base within 10 for multiplication, such as 100 11 2 , where 2 means binary
[ Last edited by 523066680 on 2009-5-1 at 23:09 ]
Function: multiply two numbers with no digit limit
Input format like 10 20
You can choose a base within 10 for multiplication, such as 100 11 2 , where 2 means binary
@echo off &setlocal enabledelayedexpansion
title code by 523066680
set /p inp="input two numbers : "
call :naxnb %inp%
pause>nul
exit
:naxnb
set numa=%1
set numb=%2
if "%3"=="" (set /a delna=10,delnb=9) else (set /a delna=%3,delnb=%3-1)
set /a la=0,lpr=-1
:la
set /a la+=1,lb=0,lpr+=1,lp=lpr
:lb
set /a lb+=1,lp+=1,tlpa=lp,tlpb=lp+1
:::::::::::::::::::::::::
set /a cup%lp%+=!numa:~-%la%,1! * !numb:~-%lb%,1!
:cuplp
set /a cup%tlpb%+=cup%tlpa%/delna,cup%tlpa%=cup%tlpa%%%delna
if !cup%tlpb%! gtr %delnb% (
set /a tlpa+=1,tlpb=tlpa+1
goto :cuplp
) else (if !cup%tlpb%! equ 0 set /a tlpb-=1)
::::::::::::::::::::::::::
if not "!numb:~%lb%!"=="" (goto :lb)
if not "!numa:~%la%!"=="" (goto :la)
for /l %%a in (%tlpb%,-1,1) do set /p=!cup%%a!<nul
[ Last edited by 523066680 on 2009-5-1 at 23:09 ]
Recent Ratings for This Post
（ 3 in total）
Click for details
