之所以说是半原创,是因为调用了随风的乘法函数.
大家用的时候要把随风的乘法函数和这两个函数放在一起才能使用.
这两个函数都没什么技术含量,只是快开学了不能长期混论坛了.
就发出来,算是造福大家?- :factorial 要阶乘的数 输出变量
- setlocal enabledelayedexpansion
- set res=1&set var=%~1
- for /l %%i in (!var! -1 1) do Call :cen !res! %%i res
- Endlocal&set %~2=%res%&goto :eof
复制代码
- :C 组合数下标 组合数上标 输出变量
- setlocal enabledelayedexpansion
- set /a "u=1,d=1"&set m=%~1&set n=%~2&set /a sp=!n!+1
- for /l %%i in (!m! -1 !sp!) do set t1=%%i&Call :cen !t1! !u! u
- for /l %%i in (!n! -1 1) do set t2=%%i&Call :cen !t2! !d! d
- set /a ret=!u!/!d!
- Endlocal&set %~3=%ret%&goto :eof
复制代码 组合数的最后一步可以引用随风的除法函数,处理更大的数.
不过组合数一定能被整除,而且经过类似笔算的优化.
最后两个数不会很大……吧?所以就没有用除法函数
随风的帖子:http://bathome.net/viewthread.ph ... 3%CB%2B%BA%AF%CA%FD |