diff options
| -rwxr-xr-x | challenge-138/perlboy1967/perl/ch-2.pl | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/challenge-138/perlboy1967/perl/ch-2.pl b/challenge-138/perlboy1967/perl/ch-2.pl index 4cbf782274..46af363c10 100755 --- a/challenge-138/perlboy1967/perl/ch-2.pl +++ b/challenge-138/perlboy1967/perl/ch-2.pl @@ -32,8 +32,15 @@ sub _isSN($$\@); my %tests = ( 25 => [0,[]], 36 => [0,[]], - 81 => [1,[8,1]], - 9801 => [1,[98,0,1]], + 81 => [1,[8,1]], + 1296 => [1,[1,29,6]], + 2025 => [1,[20,25]], + 3025 => [1,[30,25]], + 6724 => [1,[6,72,4]], + 8281 => [1,[8,2,81]], + 9801 => [1,[98,0,1]], + 55225 => [1,[5,5,225]], + 88209 => [1,[88,209]], ); foreach my $n (sort { $a <=> $b } keys %tests) { |