m@main=getLine>>=print.round.f.map read.words>>m f[a,b]=pi*foldr(\n x->a+b+((a-b)*(n-3)/n/(a+b))^2*x)0[2,4..98]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page