diff options
| author | KjetilS <kjetilskotheim@gmail.com> | 2025-10-01 19:25:26 +0200 |
|---|---|---|
| committer | KjetilS <kjetilskotheim@gmail.com> | 2025-10-01 19:25:26 +0200 |
| commit | 6f7509773da2368de54c20e40c5284aa893390fe (patch) | |
| tree | fcfd9c0de39811ca847ce8a013ee041017596557 | |
| parent | e153f1977fae4f014f65863248284f00e92a69e8 (diff) | |
| download | perlweeklychallenge-club-6f7509773da2368de54c20e40c5284aa893390fe.tar.gz perlweeklychallenge-club-6f7509773da2368de54c20e40c5284aa893390fe.tar.bz2 perlweeklychallenge-club-6f7509773da2368de54c20e40c5284aa893390fe.zip | |
https://theweeklychallenge.org/blog/perl-weekly-challenge-341/
| -rw-r--r-- | challenge-341/kjetillll/perl/ch-1.pl | 8 | ||||
| -rw-r--r-- | challenge-341/kjetillll/perl/ch-2.pl | 9 |
2 files changed, 17 insertions, 0 deletions
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" ], + |