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