Subfactorial FIXED by *yuko*

byte a(99);m=10;do1 i=0,50;k=m;m=-m
do2 j=99,1,-1;k=a(j)*i+k/10;a(j)=mod(k,10)
2 if(k>0)n=j;1 print'(99i0)',a(n:);end

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

download

return to the top page