7 lines
166 B
Raku
7 lines
166 B
Raku
my $text = qqx[perl6 --target=ast @*ARGS[]];
|
|
my %fun;
|
|
for $text.lines {
|
|
%fun{$0}++ if / '(call &' (.*?) ')' /
|
|
}
|
|
|
|
for %fun.invert.sort.reverse[^10] { .value.say }
|