
批處理高效率大數階乘運算因朋友叫寫個效率能提高點的大數階乘發在這里 能有提高效率的 盼指教如版主認為 重復貼 可刪除
nclick="copycode($('code0'));">復制代碼
- @echo off&setlocal enabledelayedexpansion
- Set /a X=1,X_len=6
- set i=000000000000&set X=!i:~,5!!X!
- for /l %%i in (2 1 1000) do (
- for /l %%j in (6 6 !X_len!) do (
- if !x:~-%%j,6! neq 000000 (
- for /f tokens=* delims=0 %%k in (!x:~-%%j,6!) do (
- set /a i=%%i*%%k+1!i:~-6!+0x3B8B87C0
- )
- )
- set T=!i:~-6!!T!&set i=000000!i:~1,-6!
- )
- for /f tokens=* delims=0 %%j in (!i!!t!) do set x=00000%%j
- if !i:0=! neq set /a X_len+=6
- set t=&set i=%i%
- )
- echo !X:~5!
- pause

