Subfactorial FIXED by nn

b[9];main(i,p,q,c)char*p,*q;{for(b[0]=b[99]=49;i--+50;puts(q+1))for(c=0,p=b,q=b+99;*p|c;c/=10)c-=(*p+*q)%48*i,*p?*q--=*p:0,*p--=c%10+48;}

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

download

return to the top page