批处理怎么算超过15的阶乘？

cb02356828

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

broly

1. gawk "BEGIN{o=1;for(i=1;i<16;i++){o*=i;}print o}"

复制代码

plp626

1. @echo off
   
2. :: 代码转自网友：liangbch
   
3. setlocal enabledelayedexpansion
   
4. 
   
5. echo To calculate n^^!
   
6. set/p nn=n=?
   
7. 
   
8. set/a "buff_1=1,rad=10000,len=1"
   
9. 
   
10. for /l %%i in (1,1,%nn% ) do (
    
11.         set/a cc=0
    
12.         for /l %%j in (1,1,!len!) do (
    
13.            set/a "tt=buff_%%j* %%i+!cc!"
    
14.            set/a "buff_%%j=!tt! %% !rad!,cc=!tt!/!rad!"
    
15.         )
    
16.         if  !cc! gtr 0 (
    
17.            set/a len+=1
    
18.            set/a buff_!len!=!cc!
    
19.         )  
    
20. )
    
21. 
    
22. set/p xx=n^^!=<nul
    
23. set/a tt=buff_%len%
    
24. set/p xx=!tt!<nul
    
25. set/a len-=1
    
26. 
    
27. for /l %%i in (%len%,-1,1 ) do (
    
28.     set/a tt=buff_%%i
    
29.     if !tt! lss 1000 set tt=00000!tt!
    
30.     set/p xx=!tt:~-4!<nul
    
31. )
    
32. 
    
33. echo.
    
34. pause

复制代码