diff options
| -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" ], + |