sub char_count($str) {
my %res;
my @chars = $str.comb;
for @chars -> $c {
%res{$c}++;
}
%res;
}
my $str = 'Article 1. All human beings are born free and equal in dignity and rights. They are endowed with reason and conscience and should act towards one another in a spirit of brotherhood.';
my %char_count = char_count($str);
my @char_count_sorted = %char_count
.pairs
.sort(sub ($e) {
$e.value
})
.reverse;
say "String: $str";
say '';
say 'Character occurence (most frequent to least frequent):';
for @char_count_sorted -> $pair {
my $char = $pair.key;
my $count = $pair.value;
my $display_char;
if ($char eq ' ') {
$display_char = '<space>';
} else {
$display_char = $char;
}
say "$display_char: $count";
}
