Distribution of 0 digits in factorial series: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: changed a comment.) |
m (→{{header|REXX}}: reworded a comment.) |
||
Line 443: | Line 443: | ||
!= ! * i /*calculate the factorial of BIG. */ |
!= ! * i /*calculate the factorial of BIG. */ |
||
end /*i*/ |
end /*i*/ |
||
if pos('E', !)>0 then do /* |
if pos('E', !)>0 then do /*In exponential format? Then get EXP.*/ |
||
parse var ! 'E' x /*parse the exponent from the number. */ |
parse var ! 'E' x /*parse the exponent from the number. */ |
||
numeric digits x+1 /*set the decimal digits to X plus 1.*/ |
numeric digits x+1 /*set the decimal digits to X plus 1.*/ |