Select Code to Download

while ($i++< $iterations)
{
  $sqrt = $sqrt + 0.5*($y - $sqrt**2) / $sqrt;
}

use strict;
my $i=0;
...
}
 
print $sqrt*(2**$divs),"\n";