diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2021-11-15 00:22:09 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2021-11-15 00:22:09 +0000 |
| commit | f1eac0a1b6e9fd1cdf9d84728904a9dbc97d3e4a (patch) | |
| tree | 21742549351a88963d30dae1f838d5d7a07eb86c | |
| parent | 125a2addeb2919841cab724b6bca32accf6d2d52 (diff) | |
| download | perlweeklychallenge-club-f1eac0a1b6e9fd1cdf9d84728904a9dbc97d3e4a.tar.gz perlweeklychallenge-club-f1eac0a1b6e9fd1cdf9d84728904a9dbc97d3e4a.tar.bz2 perlweeklychallenge-club-f1eac0a1b6e9fd1cdf9d84728904a9dbc97d3e4a.zip | |
Task 2 - More 'working' numbers
| -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) { |