Rosetta Code/Count examples: Difference between revisions
m
→{{header|Perl 6}}: Minor tweak to regex
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: switched library) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Minor tweak to regex) |
||
Line 1,895:
# dump a copy to STDOUT, mostly for debugging purposes
say '<pre>Top ten programming
say "{('①' .. '⑩')[$_]} {@top10[$_]}" for ^@top10;
say "</pre>\n";
Line 1,918:
"./pages/{ uri-escape .<title>.subst(/' '/, '_', :g) } ".IO.spurt($page);
my $lc = $page.lc;
my $count = +$lc.comb(/ ^^'==' <-[\n=]>* '{{header|'
%tasks{.<title>} = {'cat' => %cat{$cat}, :$count};
%tasks{.<title>}<top10> = (^@top10).map( {
Line 1,948:
my $out = open($tablefile, :w) or die "$!\n";
$out.say: '<pre>Top ten programming
$out.say: "{('①' .. '⑩')[$_]} {@top10[$_]}" for ^@top10;
$out.say: "</pre>\n\n<div style=\"height:40em;overflow:scroll;\">";
|