character count
12345678910111213
my $str = prompt;
my %char_count = $str.comb.Bag;
my @char_count_sorted = %char_count.sort(*.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 = $char eq ' ' ?? '<space>' !! $char;
say "$display_char: $count";
}
Raku
INFO