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

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

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.