From 6f7509773da2368de54c20e40c5284aa893390fe Mon Sep 17 00:00:00 2001 From: KjetilS Date: Wed, 1 Oct 2025 19:25:26 +0200 Subject: https://theweeklychallenge.org/blog/perl-weekly-challenge-341/ --- challenge-341/kjetillll/perl/ch-1.pl | 8 ++++++++ challenge-341/kjetillll/perl/ch-2.pl | 9 +++++++++ 2 files changed, 17 insertions(+) create mode 100644 challenge-341/kjetillll/perl/ch-1.pl create mode 100644 challenge-341/kjetillll/perl/ch-2.pl diff --git a/challenge-341/kjetillll/perl/ch-1.pl b/challenge-341/kjetillll/perl/ch-1.pl new file mode 100644 index 0000000000..79dece0059 --- /dev/null +++ b/challenge-341/kjetillll/perl/ch-1.pl @@ -0,0 +1,8 @@ +sub f { 0 + grep /^[^_@_]+$/i, shift =~ /\w+/g } + +print pop(@$_) == f(@$_) ? "ok\n" : "error\n" for +[ 'Hello World', 'd' => 1 ], +[ 'apple banana cherry', 'a', 'e' => 0 ], +[ 'Coding is fun', => 3 ], +[ 'The Weekly Challenge', 'a', 'b' => 2 ], +[ 'Perl and Python', 'p' => 1 ], diff --git a/challenge-341/kjetillll/perl/ch-2.pl b/challenge-341/kjetillll/perl/ch-2.pl new file mode 100644 index 0000000000..12ba7bdf1e --- /dev/null +++ b/challenge-341/kjetillll/perl/ch-2.pl @@ -0,0 +1,9 @@ +sub f { shift =~ s{ .*? @{[ shift ]} }{ reverse $& }xer } + +print f( @$_[0,1] ) eq $$_[2] ? "ok\n" : "error\n" for +[ "programming", "g" => "gorpramming" ], +[ "hello", "h" => "hello" ], +[ "abcdefghij", "h" => "hgfedcbaij" ], +[ "reverse", "s" => "srevere" ], +[ "perl", "r" => "repl" ], + -- cgit