1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/env perl
use v5.36;
use strict;
use warnings;
use List::Util qw( uniq );
sub common_characters (@words) {
my %characters;
my @letters = map( { uniq split( //, lc($_) ) } @words );
map( { $characters{$_}++ } @letters );
my @cc = sort grep( { $characters{$_} == @words } keys %characters );
return \@cc;
}
#| Run test cases
sub MAIN() {
use Test2::V0 qw( is plan );
plan 2;
is common_characters( "Perl", "Rust", "Raku" ), ['r'],
'works for ("Perl", "Rust", "Raku")';
is common_characters( "love", "live", "leave" ), [ 'e', 'l', 'v' ],
'works for ("love", "live", "leave")';
}
MAIN();
|
