Function frequency: Difference between revisions
→{{header|Raku}}: Fix code and comments: Perl 6 --> Raku
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
SqrtNegInf (talk | contribs) (→{{header|Raku}}: Fix code and comments: Perl 6 --> Raku) |
||
Line 1,335:
=={{header|Raku}}==
(formerly Perl 6)
Here we just examine the ast of the
<lang perl6>my $text = qqx[
my %fun;
for $text.lines {
Line 1,344:
for %fun.invert.sort.reverse[^10] { .value.say }</lang>
{{out}}
Here we run it on the strand sort RC entry. Note how
<pre>$ ./morefun strand
pop
|