From f1eac0a1b6e9fd1cdf9d84728904a9dbc97d3e4a Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 15 Nov 2021 00:22:09 +0000
Subject: Task 2 - More 'working' numbers

---
 challenge-138/perlboy1967/perl/ch-2.pl | 11 +++++++++--
 1 file 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) {
-- 
cgit