Select Code to Download

use strict;
use warnings;
...
    printf STDERR "time: %.3fs for %d\n\n", time()-$t0, $last_iter+1;
}
__END__

__RESULTS__
perl 1208610.pl
...
#          13# @p = (1.0, 0.5)
#          14# @p = (1.0, 0.0)
time: 0.013s for 15