map{s/.*,(.*),//;$s=","while(printf"$s%.3f",$_-=$y=$_*(1-$&/$_**$1)/$1-1e-7)/$y<1e3;$s=$/}<>
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page