blob: 6d2f9b04f8d2a6232445fe97e06f280fe0a7359e (
plain)
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
29
30
|
#!/usr/bin/env perl
use v5.40;
sub twiceAppearance($str) {
my @chars = split //, $str;
my %count;
foreach my $char ( @chars ) {
$count{$char}++;
return $char if $count{$char} > 1;
}
return "␀"; # fallback
}
sub solution($str) {
say qq/Input: \$str = "$str"/;
my $char = twiceAppearance($str);
say qq/Output: "$char"/;
}
say "Example 1:";
solution("acbddbca");
say "\nExample 2:";
solution("abccd");
say "\nExample 3:";
solution("abcdabbb");
say "\nExample 4:";
solution("abcdefg");
|
