Factorial1000 by *yuko*

integer::a(2568)=0;k=10
do1 i=1,1e3;do1 j=2568,1,-1
k=a(j)*i+k/10;1 a(j)=mod(k,10)
print'(9999i0)',a;end

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page