[分享]阶乘函数,组合函数(半原创)

ht河豚

之所以说是半原创,是因为调用了随风的乘法函数.
大家用的时候要把随风的乘法函数和这两个函数放在一起才能使用.
这两个函数都没什么技术含量,只是快开学了不能长期混论坛了.
就发出来,算是造福大家?

1. :factorial 要阶乘的数 输出变量
   
2. setlocal enabledelayedexpansion
   
3. set res=1&set var=%~1
   
4. for /l %%i in (!var! -1 1) do Call :cen !res! %%i res
   
5. Endlocal&set %~2=%res%&goto :eof

复制代码

1. :C 组合数下标 组合数上标 输出变量
   
2. setlocal enabledelayedexpansion
   
3. set /a "u=1,d=1"&set m=%~1&set n=%~2&set /a sp=!n!+1
   
4. for /l %%i in (!m! -1 !sp!) do set t1=%%i&Call :cen !t1! !u! u
   
5. for /l %%i in (!n! -1 1) do set t2=%%i&Call :cen !t2! !d! d
   
6. set /a ret=!u!/!d!
   
7. Endlocal&set %~3=%ret%&goto :eof

复制代码

组合数的最后一步可以引用随风的除法函数,处理更大的数.
不过组合数一定能被整除,而且经过类似笔算的优化.
最后两个数不会很大……吧?所以就没有用除法函数

随风的帖子:http://bathome.net/viewthread.ph ... 3%CB%2B%BA%AF%CA%FD