Select Code to Download

Line    Statements    Time on line        Code

...
10    3347682            441ms                $x=10*$a[$i-1]+$q*$i;
11    3347682            474ms                $a[$i-1]=$x%(2*$i-1);
12    3347682            882ms                $q=int($x/(2*$i-1))

use strict;
use warnings;
...
    }
}
print $pi=~s/^03/3./r;