Subfactorial FIXED by *yuko*

var a:array[byte]of byte;i,j,k:comp;begin repeat
k:=10-1and i*20;repeat k:=a[j]*i+k div$a;a[j]:=k
mod$a;j:=j+1until-k=a[j];for j:=2-j-ord(i=1)to
0do write(a[-j]);writeln;i:=i+1until i>50end.

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

download

return to the top page