Subfactorial FIXED by *yuko*

dim a(99):m=10:for i=0to 50k=m:m=-m
for j=0to 99k=a(j)*i+int(k/10):a(j)=mod(k,10):if k n=j
next:for j=-n to 0?a(-j),"";next:?next

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

download

return to the top page