Factoradic Counter by *yuko*

var i,j,k,n:word;begin repeat k:=i;n:=0;for j:=1to 6do begin
k:=k div j;n:=n+k mod(j+1)*10pow j end;writeln(n);i:=i+1until i>1000end.

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

download

return to the top page