$i+=($_%2*8-4)/($_*2-1)for 1..1e6;print$i

##</code><code>##

$i+=4*(-1)**$_/(1-$_*2)for 1..1e6;print$i