Untitled

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";

}