1 files changed, 39 insertions, 0 deletions
diff --git a/challenge-220/perlboy1967/perl/ch-1.pl b/challenge-220/perlboy1967/perl/ch-1.pl
new file mode 100755
index 0000000000..29be6dc082
--- /dev/null
+++ b/challenge-220/perlboy1967/perl/ch-1.pl
@@ -0,0 +1,39 @@
+#!/bin/perl
+
+=pod
+
+The Weekly Challenge - 220
+- https://theweeklychallenge.org/blog/perl-weekly-challenge-220
+
+Author: Niels 'PerlBoy' van Dijke
+
+Task 1: Common Characters
+Submitted by: Mohammad S Anwar
+
+You are given a list of words.
+
+Write a script to return the list of common characters (sorted alphabeticall)
+found in every word of the given list.
+
+=cut
+
+use v5.16;
+
+use common::sense;
+
+use Test::More;
+use Test::Deep qw(cmp_deeply);
+
+use List::MoreUtils qw(uniq);
+
+sub commonChars (@) {
+  my %c;
+  map { $c{$_}++ } uniq split //,lc for (@_);
+  sort grep { $c{$_} == scalar @_ } keys %c;
+}
+
+cmp_deeply([commonChars(qw(Perl Rust Raku))],[qw(r)]);
+cmp_deeply([commonChars(qw(love live leave))],[qw(e l v)]);
+cmp_deeply([commonChars(qw(bamboo bank))],[qw(a b)]);
+
+done_testing;