Factorial by nn

{p=$1
$0=OFS=_
for($159=i=1;i++<p;)for(j=160;_$--j||c;c=int(c/10))$j=(c+=i*$j)%10}1

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

download

return top