Anonymous user
Rosetta Code/Count examples: Difference between revisions
→{{header|Perl 6}}: add entry
(→{{header|Lasso}}: adding Lasso count from API & raw file example) |
(→{{header|Perl 6}}: add entry) |
||
Line 1,389:
say "$_->{title}: $count examples";
});</lang>
=={{header|Perl 6}}==
<lang perl6>use LWP::Simple;
my $site = "http://rosettacode.org";
my $list-url = "/mw/api.php?action=query&list=categorymembers&cmtitle=Category:Programming_Tasks&cmlimit=500&format=xml";
for get("$site$list_url").comb(/'cm' .*? 'title="' <( .*? )> '"'/) {
my $slug = .trans(' ' => '_');
my $count = +get("$site/wiki/$slug").comb(/'toclevel-1'/);
say "$_: $count examples";
}</lang>
=={{header|PicoLisp}}==
| |||