Rosetta Code/Count examples: Difference between revisions

Total: X examples.</pre>

 

 

You'll need to use the Media Wiki API, which you can find out about locally, [http://rosettacode.org/mw/api.php here], or in Media Wiki's API documentation at, [http://www.mediawiki.org/wiki/API_Query API:Query]

{{libheader|AWS}}

Parsing XML file with XMLAda from AdaCore

with Dom.Readers, Dom.Core, Dom.Core.Documents, Dom.Core.Nodes, Dom.Core.Attrs;

with Input_Sources.Strings, Unicode, Unicode.Ces.Utf8;

Put_Line ("Total :" & Integer'Image (Total) & " exemples.");

end Count_Examples;

Output :

<pre>

 

=={{header|AutoHotkey}}==

, http://www.rosettacode.org/w/api.php?action=query&list=categorymembers&cmtitle=Category:Programming_Tasks&cmlimit=500&format=xml

, tasks.xml

}

MsgBox % output

 

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

SYS "LoadLibrary", "URLMON.DLL" TO urlmon%

WHEN "&quot;": = """"

ENDCASE

'''Sample output:'''

<pre>

 

=={{header|Bracmat}}==

=

. sys$(str$("wget -q -O wget.out \"" !arg \"))

)

& lst$(list,taskfreq,NEW)

Output (in file <code>tasqfreq</code>):

<pre>list=

Object-oriented solution.

 

using System.Collections.Generic;

using System.Linq;

 

foreach (string task in tasknames) {

 

}

 

Console.WriteLine("\nTotal: {0} examples.", tasks.Select(x => x.Examples).Sum());

}

 

=={{header|Clojure}}==

(:import [java.net URLEncoder])

(:use [clojure.contrib.http.agent :only (http-agent string)]

(flush))

(println "Total: " (reduce #(+ %1 (second %2)) 0 task-counts))))

100 doors: 73

24 game: 18

Total: 11216

nil

 

=={{header|D}}==

{{works with|Tango}}

import tango.io.Stdout;

import tango.net.http.HttpClient;

}

}

 

=={{header|EGL}}==

 

User Interface: RosettaCodeHandler.egl

 

import org.eclipse.edt.rui.widgets.*;

title string;

count int;

 

Service Interface: ProxyFunctions.egl

 

library ProxyFunctions

record QueryContinue

categorymembers Categorymembers;

 

=={{header|Erlang}}==

{{libheader|xmerl}}

 

-module(rosseta_examples).

-include_lib("xmerl/include/xmerl.hrl").

replace_chars([],Acc) ->

lists:reverse(Acc).

 

 

Using asynchronous workflows to perform downloads concurrently:

 

 

let uri1 = "http://www.rosettacode.org/w/api.php?action=query&list=categorymembers&cmtitle=Category:Programming_Tasks&cmlimit=500&format=xml"

|> Async.Parallel

|> Async.RunSynchronously

 

This is 21&#215; faster than the python thanks to the concurrency.

=={{header|Factor}}==

Runs in about a minute. The number of threads is limited to 10 avoid cloudfare's protection mechanism.

 

concurrency.semaphores formatting hashtables http.client io

json.reader kernel math math.parser sequences splitting

all-programming-titles fetch-counts print-counts ;

 

Outputs:

 

 

Total: 30745 examples.</pre>

=={{header|Go}}==

 

import (

fmt.Printf("%s: %d\n", cm, examples)

total += examples

{{out|Output: (May 25, 2011)}}

<pre>

{{libheader|HTTP XML}} from [http://hackage.haskell.org/packages/hackage.html HackageDB]

 

import Network.HTTP

import Network.URI

 

mapM_ putStrLn $ zipWith showFormatted tasks ns

some output:

100 doors: 56

24 game: 11

Active object: 9

...

 

==Icon and {{header|Unicon}}==

The following code uses features exclusive to Unicon. This version handles all tasks, not just the first 500.

 

$define RCTASK "http://rosettacode.org/mw/index.php?action=raw&title="

$define RCUA "User-Agent: Unicon Rosetta 0.1"

close(page)

return text

 

{{libheader|Icon Programming Library}}

'''Solution:'''<br>

Using <code>getCategoryMembers</code> from [[Find unimplemented tasks#J|Find unimplemented tasks]].

 

getAllTaskSolnCounts=: monad define

res=. ;:^:_1 tasks ,. (8!:0 counts) ,. <'examples.'

res , 'Total examples: ' , ": +/counts

 

'''Example Usage:'''

100 doors: 61 examples.

24 game: 15 examples.

24 game Player: 11 examples.

99 Bottles of Beer: 76 examples.

 

=={{header|Java}}==

{{works with|Java|1.5+}}

import java.util.ArrayList;

import ScreenScrape;

}

}

[[Count programming examples/Java/ScreenScrape|ScreenScrape class]]

 

=={{header|jq}}==

`@uri` filter in the bash function `titles`.

 

 

# Produce lines of the form: URI TITLE

n=$((n + i))

done < <(titles)

 

{{out}}

Palindrome detection: 136 examples.

Total: 32416 examples.</pre>

 

=={{header|Lasso}}==

local(tasks = array, title = string, urltitle = string, thiscount = 0, totalex = 0)

with i in #root->find('query')->find('categorymembers') do => {^

'\r'

^}

 

{{out}}

2. Add a text field called "tasks"

 

put empty into fld "taskurls"

put URL "http://rosettacode.org/mw/api.php?action=query&list=categorymembers&cmtitle=Category:Programming_Tasks&cmlimit=10&format=xml" into apixml

end repeat

put "Total" & comma & allTaskTotal after fld "tasks"

 

 

Print["Task \"", StringReplace[#, "_" -> " "], "\" has ",

Length@Select[Import["http://rosettacode.org/wiki/" <> #, "Data"][[1,2]],

StringFreeQ[#, __ ~~ "Programming Task" | __ ~~ "Omit"]& ], " example(s)"]&

returns:

<pre>Task "100 doors" has 143 example(s)

 

The function count_examples() need to be saved in a file count_examples.m and its directory need to be included in the path.

c = 0;

[s, success] = urlread (url);

c = count_examples(['http://rosettacode.org',t]);

printf('Task "%s" has %i examples.\n',t(7:end), c);

 

Output:

 

=={{header|Nim}}==

 

var i = 0

while true:

i = s.find(sub, i)

inc i

inc result

 

const

 

var sum = 0

 

 

[...]</pre>

 

=={{header|Objeck}}==

use XML;

 

return xml;

}

 

Output:<pre>Amb: 28

ocamlfind opt -linkpkg -package str,unix,xml-light,netclient countex.ml -o countex.opt

 

 

let catmb = get_child "categorymembers" query in

List.iter f catmb

 

outputs:

{{libheader|OzHttpClient}}

 

[HTTPClient] = {Module.link ['x-ozlib://mesaros/net/HTTPClient.ozf']}

[XMLParser] = {Module.link ['x-oz://system/xml/Parser.ozf']}

end

in

 

Example output:

 

=={{header|Perl}}==

 

my $site = "http://rosettacode.org";

 

(my $slug = $_) =~ tr/ /_/;

print "$_: $count examples\n";

 

{{libheader|Mojolicious}}

 

my $site = "http://rosettacode.org";

my $count = $ua->get("$site/wiki/$slug")->res->dom->find("#toc .toclevel-1")->size;

say "$_->{title}: $count examples";

 

 

=={{header|PicoLisp}}==

 

(client "rosettacode.org" 80

(unless (sub? "." (till "<" T))

(inc 'Cnt) ) )

Output (05may10):

<pre>100 doors: 79

Abstract type: 29

...</pre>

 

=={{header|PureBasic}}==

If value = 0

MessageRequester("Error", msg)

Input()

CloseConsole()

Sample output:

<pre>100 doors: 224 examples

=={{header|Python}}==

 

 

 

tasks = []

 

 

=={{header|R}}==

 

{{libheader|RCurl}}

library(XML)

library(RCurl)

}

cat("Total: ", length(unlist(counts)), "examples\n")

 

=={{header|Racket}}==

 

#lang racket

 

(printf "~a: ~a\n" task s)

s))

 

=={{header|Ruby}}==

{{libheader|REXML}}

First, a RosettaCode module, saved as <tt>rosettacode.rb</tt>:

require 'rexml/document'

 

end

 

 

Then, we implement the task with:

 

total_examples = 0

 

puts

 

=={{header|Rust}}==

extern crate url;

extern crate rustc_serialize;

let json: Json = query_api(query).unwrap();

count_number_examples(&json, task.page_id).unwrap()

 

The function is then run using the following:

extern crate count_examples;

fn main() {

println!("Task: {} has {} examples", task.title, count);

}

 

=={{header|Scala}}==

 

object TaskCount extends App {

counts map (_.apply) map Function.tupled("%s: %d examples." format (_, _)) foreach println

println("\nTotal: %d examples." format (counts map (_.apply._2) sum))

 

=={{header|Sidef}}==

{{trans|Perl}}

 

var site = 'http://rosettacode.org';

var count = lwp.get("#{site}/wiki/#{slug}").decoded_content.count(/toclevel-1/g);

say "#{m[0]}: #{count} examples";

{{out}}

<pre>

...

</pre>

=={{header|Tcl}}==

{{tcllib|json}}

package require http

package require json

}

 

 

=={{header|TUSCRIPT}}==

url="http://www.rosettacode.org/w/api.php?action=query&list=categorymembers&cmtitle=Category:Programming_Tasks&cmlimit=500&format=xml"

data=REQUEST (url)

 

FILE "tasks" = line

Output in file "tasks":

<pre style='height:30ex;overflow:scroll'>

Zig-zag matrix=46 members

2011-01-15 03:41:30: 455 Programing Tasks: 16009 solutions

</pre>

 

=={{header|zkl}}==

Uses shared libraries YAJL and cURL and handles "continue" responses.

 

fcn getTasks(language){

tasks

}

foreach task in (getTasks("Programming_Tasks")){

page:=CURL().get(

cnt,n:=0,0; while(re.search(page,True,n)){ cnt+=1; n=re.matched[0].sum(0); }

"%4d: %s".fmt(cnt,task).println();

{{out}}

<pre>