[数值计算] 批处理怎么算超过15的阶乘？

cb02356828

蛋疼的“数字精度限制为32位”，怎么算超过15的数的阶乘？

broly

gawk "BEGIN{o=1;for(i=1;i<16;i++){o*=i;}print o}"
复制代码

plp626

@echo off
:: 代码转自网友：liangbch
setlocal enabledelayedexpansion

echo To calculate n^^!
set/p nn=n=?

set/a "buff_1=1,rad=10000,len=1" 

for /l %%i in (1,1,%nn% ) do (
        set/a cc=0
        for /l %%j in (1,1,!len!) do (
           set/a "tt=buff_%%j* %%i+!cc!"
           set/a "buff_%%j=!tt! %% !rad!,cc=!tt!/!rad!"
        )
        if  !cc! gtr 0 (
           set/a len+=1
           set/a buff_!len!=!cc!
        )  
)

set/p xx=n^^!=<nul
set/a tt=buff_%len%
set/p xx=!tt!<nul
set/a len-=1

for /l %%i in (%len%,-1,1 ) do (
    set/a tt=buff_%%i
    if !tt! lss 1000 set tt=00000!tt!
    set/p xx=!tt:~-4!<nul
)

echo.
pause
复制代码