blob: e2bb34d2a6d187cb51759f646b0aab61b3b09155 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/bin/env perl
use strict;
use warnings;
use List::Util qw(min);
sub common_characters{
my @letters;
map{my %h; $h{$_}++ for split ''; push @letters,\%h} @{$_[0]};
map{my $letter = $_;
my $rep = min map{$letters[$_]{$letter} // 0} 0..$#letters;
($letter) x $rep
} keys %{$letters[0]};
}
printf "(%s)\n", join ',',
common_characters([qw/java javascript julia/]);
printf "(%s)\n", join ',',
common_characters([qw/bella label roller/]);
printf "(%s)\n", join ',', common_characters([qw/cool lock cook/]);
|
