happy886rr

题目的数字太小了。

@echo off
REM 支持天文数字，不限长度，小数也行，已分装为函数，直接呼。
call :MULTIPLICATION %random%×%random%×%random%×%random%×%random%×%random%×%random%×%random%
pause&exit /b

def MULTIPLICATION():
{
	:MULTIPLICATION <表达式>
	set "expression=%1"
	if "!CHECK_ENABLE_DELAYED_EXPANSION!"=="%CHECK_ENABLE_DELAYED_EXPANSION%" (SETLOCAL) else (SETLOCAL ENABLEDELAYEDEXPANSION)
	set RESULT=1&set "expression=%expression:×= %"
	for %%a in (!expression!) do (
		CALL :CALCULATE !RESULT! %%a RESULT
	)
	echo 计算%1
	echo =!RESULT!
	ENDLOCAL
	GOTO :EOF
}
def CALCULATE():
{
	:CALCULATE <被乘数> <乘数> [积]
	for /f "tokens=1,2 delims=." %%a in ("%1") do (
		set A1=%%a&set A=!A1!%%b
		if "%%b"=="" (set PA=0) else (
			set A2=%%b
			for %%i in (512 256 128 64 32 16 8 4 2 1) do (
    				if not "!A2:~%%i!"=="" (
					set/a PA+=%%i
					set "A2=!A2:~%%i!"
				)
			)
			if "!A2:~1!"=="" (set/a PA+=1)
		)
	)
	for /f "tokens=1,2 delims=." %%a in ("%2") do (
		set B1=%%a&set B=!B1!%%b
		if "%%b"=="" (set PB=0) else (
			set B2=%%b
			for %%i in (512 256 128 64 32 16 8 4 2 1) do (
    				if not "!B2:~%%i!"=="" (
					set/a PB+=%%i
					set "B2=!B2:~%%i!"
				)
			)
			if "!B2:~1!"=="" (set/a PB+=1)
		)
	)
	CALL :CUTNUM !A! A NA
	CALL :CUTNUM !B! B NB
	set/a "N=NA+NB,PO=PA+PB"
	for /l %%i in (1 1 !N!) do (
		for /l %%j in (1 1 %%i) do (
			set/a j=%%i-%%j+1
			if defined A[%%j] (
				if defined B[!j!] (
					set/a sum=A[%%j]*B[!j!]+sum
				)
			)
		)
		set/a s=sum+1000
		set sum=!sum:~0,-3!
		set pul=!s:~-3!!pul!
	)
	if !PO! equ 0 (
		for /l %%i in (1 1 10) do (
			if "!pul:~0,1!"=="0" (
				set pul=!pul:~1!
			)
		)
		set "%3=!pul!"
	) else (
		set pre=!pul:~0,-%PO%!
		for /l %%i in (1 1 20) do (
			if "!pre:~0,1!"=="0" (
				set pre=!pre:~1!
			)
		)
		if not defined pre (set pre=0)
		set "%3=!pre!.!pul:~-%PO%!
	)
	for /l %%i in (1 1 !N!) do (set "A[%%i]="&set "B[%%i]=")&set "pul="&set/a "PA=0,PB=0,PO=0"
	GOTO :EOF
}
def CUTNUM():
{
	:CUTNUM <待切分数> <数据类型> [切分组数]
	set num=%1
	if "!num:~-3!"=="!num:~-4!" (
		set %2[1]=!num!
		set %3=1
		GOTO :EOF
	)
	for /l %%i in (1 1 365) do (
		if "!num:~0,-3!"=="" (
			set/a %2[%%i]=!num!
			set %3=%%i
			GOTO :EOF
		)
		set/a %2[%%i]=1!num:~-3!-1000
		set num=!num:~0,-3%!
	)
	GOTO :EOF
}
复制代码

happy886rr

回复 7# 523066680
我只是学徒，在看到你的动画时第一反应就是完全惊呆了，我那时只会echo，后来就不断的研究你的作品，学到好多巧妙的思维。

happy886rr

回复 9# 523066680

我打算下一个目标就是去学perl。你的很多帖子都是很好的资料，这个论坛的好处就是非常通俗易懂的启蒙教程和许多充满智慧的创新思维。
我以前显示一个字符串只会用echo ，后来在论坛学到set/p=字符串<nul也能用来显示 ，因此思维就得到了扩充。这个论坛的最大作用就是思维的交流，这里的代码有情有义，而非其他网站的那种生硬的语法教学。

happy886rr

回复 12# 523066680
重复独立事件，随机本真性已被破坏。取余就会使其趋于古典概型。

happy886rr

回复 34# CrLf
可能大师没注意到，我以前发过了，沉下去了。我正在用C语言去实现cmd，到时候就不用微软的cmd了，用自己写的去解释批处理http://www.bathome.net/thread-42198-1-1.html，这个只完成了最基本的，我只要有时间，用不了多久，会实现解释65%的批处理代码，全部用内置函数解释，wmic可能没法解释，只能exec了。我正在写个虚拟机以运行自己的虚拟指令集，从而实现cmd的 编译。

happy886rr

回复 37# codegay
哈哈，兄记性真好。我打算把python 的一些特性也加进去，搞个杂交水稻吧。还要写个新的SQLM数据库，用的B树，还有“汉本”一种新的脚本。要写的太多了，正在学汇编，打算开发一种类似C语言一样高效的低级程序语言。

happy886rr

回复 39# aa77dd@163.com
兄的头像怎么换了？

happy886rr

回复 39# aa77dd@163.com
只能在批处理之家挠挠痒痒，业余玩玩，不亦乐乎。我也发现C语言和汇编是速度最快的，在同样的算法下，C比C++都快2倍，比python快十多倍。目前各类C编译器优化十分到位，我用汇编也只能跟C语言速度持平。

happy886rr

回复 42# aa77dd@163.com
这不马上过年了，码几幅对联。弄个批处理写春联。