log by primo

$/=' '
z=10**?d
x,y=$<.map{|f|eval"n=(n-z/~i-=1)*~-%d/#{f};"%f*n=i=11600}
print x/y,'.%0100d'%(z*x/y%z)

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

download

return top