Merge pull request #9881 from kjetillll/challenge-261-kjetillll

https://theweeklychallenge.org/blog/perl-weekly-challenge-261/

2 files changed, 52 insertions, 0 deletions

diff --git a/challenge-261/kjetillll/perl/ch-1.pl b/challenge-261/kjetillll/perl/ch-1.pl
new file mode 100644
index 0000000000..c5a8317761
--- /dev/null
+++ b/challenge-261/kjetillll/perl/ch-1.pl
@@ -0,0 +1,29 @@
+use strict; use warnings;
+
+sub sumdiff {
+    eval( join '+', @_ )
+    -
+    eval( join '+', "@_" =~ /\d/g )
+}
+
+
+
+#========== Test ========================================
+use Test::More tests => 4;
+is( sumdiff( @{ $$_{input} } ), $$_{output} ) for
+    {
+        input=> [1,2,3,45],
+        output=> 36
+    },
+    {
+        input=> [1,12,3],
+        output=> 9
+    },
+    {
+        input=> [1,2,3,4],
+        output=> 0
+    },
+    {
+        input=> [236, 416, 336, 350],
+        output=> 1296
+    };
diff --git a/challenge-261/kjetillll/perl/ch-2.pl b/challenge-261/kjetillll/perl/ch-2.pl
new file mode 100644
index 0000000000..e8c2241641
--- /dev/null
+++ b/challenge-261/kjetillll/perl/ch-2.pl
@@ -0,0 +1,23 @@
+use strict; use warnings;
+
+sub f {
+    my $n = pop;
+    grep( $_ == $n, @_ ) ? f( @_, $n*2 ) : $n
+}
+
+use Test::More tests => 3;
+is( f( @{ $$_{input} }, $$_{start} ), $$_{output} ) for
+    {
+        input  => [5,3,6,1,12],
+        start  => 3,
+        output => 24},
+    {
+        input  => [1,2,4,3],
+        start  => 1,
+        output => 8
+    },
+    {
+        input  => [5,6,7],
+        start  => 2,
+        output => 2
+    };