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

2 files changed, 27 insertions, 0 deletions

diff --git a/challenge-255/kjetillll/perl/ch-1.pl b/challenge-255/kjetillll/perl/ch-1.pl
new file mode 100644
index 0000000000..5c35b9b15b
--- /dev/null
+++ b/challenge-255/kjetillll/perl/ch-1.pl
@@ -0,0 +1,11 @@
+sub odd_char {
+    my %toggle;
+    $toggle{$_}++ and delete $toggle{$_} for "@_ "=~/./gs;
+    (keys%toggle)[0];
+}
+
+use Test::More;
+is( odd_char("Perl", "Preel")     => 'e' );
+is( odd_char("Weekly", "Weeakly") => 'a' );
+is( odd_char("Box", "Boxy")       => 'y' );
+done_testing;
diff --git a/challenge-255/kjetillll/perl/ch-2.pl b/challenge-255/kjetillll/perl/ch-2.pl
new file mode 100644
index 0000000000..b59c2b8225
--- /dev/null
+++ b/challenge-255/kjetillll/perl/ch-2.pl
@@ -0,0 +1,16 @@
+sub most_frequent_unbanned_word {
+    my($paragraph,$banned)=@_;
+    my %frequency;
+    my $letters='a-z';
+    $frequency{$_}++ for $paragraph=~/[$letters]+/gi;
+    delete $frequency{$banned};
+    ( sort{ $frequency{$b} <=> $frequency{$a} or $a cmp $b} keys %frequency )[0]
+}
+
+use Test::More;
+is( most_frequent_unbanned_word("Joe hit a ball, the hit ball flew far after it was hit.",
+                                "hit") => 'ball' );
+is( most_frequent_unbanned_word("Perl and Raku belong to the same family. Perl is the
+                                 most popular language in the weekly challenge.",
+                                "the") => 'Perl' );
+done_testing;