Select Code to Download

sub test {
        print 
...
test(('1'x325), $issquare);#2^2*3^4+1 <-- not perfect square
test(('1'x9216), $issquare);#2^10*3^4 <-- perfect square
test(('1'x9217), $issquare);#2^10*3^4+1 <-- not perfect square