Rosetta Code/Count examples: Difference between revisions

<langsyntaxhighlight Adalang="ada">with Aws.Client, Aws.Messages, Aws.Response, Aws.Resources, Aws.Url;

<langsyntaxhighlight AutoHotkeylang="autohotkey">UrlDownloadToFile

Return</langsyntaxhighlight>

<langsyntaxhighlight lang="csharp">using System;

stringtry content = GetSourceCodeFromPage(task, wc);{

Task t int count = new TaskRegex(task"=={{header", countRegexOptions.IgnoreCase).Matches(content).Count;

Console.WriteLine(t);

tasks.Add(t);

}</langsyntaxhighlight>

<langsyntaxhighlight lang="clojure">(ns count-examples

<langsyntaxhighlight lang="clojure">count-examples> (print-result)

<langsyntaxhighlight lang="fsharp">#r "System.Xml.Linq.dll"

|> fun xs -> printfn "Total: %d examples" (Seq.sum xs)</langsyntaxhighlight>

<langsyntaxhighlight lang="go">package main

for p := xml.NewParserNewDecoder(resp.Body); ; {

}</langsyntaxhighlight>

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

<langsyntaxhighlight lang="haskell">import Network.Browser

putStrLn $ ("Total: " ++) $ show tot</langsyntaxhighlight>

<langsyntaxhighlight lang="haskell">*Main> progTaskExamples

Total: 9156</langsyntaxhighlight>

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

<langsyntaxhighlight Uniconlang="unicon">$define RCINDEX "http://rosettacode.org/mw/api.php?format=xml&action=query&list=categorymembers&cmtitle=Category:Programming_Tasks&cmlimit=500"

Tasks := table(0) suspend tab(find("\""))\1

if p << A[1] then next # for tests on small #s}

tr initial WS := table()' \t'

tr[" "] := "_" header ? # wiki convention{

dxml[1] := u # insert URI as 1st arg}

u := replacem!dxml # de-xml it}

procedure ReadURLCleanURI(urlu) #: readclean URLup intoa stringURI

Sample Output (Mayfor 26July 6, 20112013 (abridged):<pre>100 doors : 111 examples.

24100 game/Solvedoors : 20171 examples.

9924 Bottles of Beergame : 13360 examples.

A+B24 game/Solve : 8737 examples.

Abstract9 typebillion names of God the integer : 3812 examples.

Accumulator99 factoryBottles of Beer : 50199 examples.

Ackermann functionA+B : 102137 examples.

Y combinator : 4056 examples.

Yahoo! search interface : 1018 examples.

Yin and yang : 1839 examples.

Zig-zagZebra matrixpuzzle : 5012 examples.

*Zeckendorf Total Tasks *arithmetic : 4983 examples.

*Zeckendorf Totalnumber Headers*representation : 1807921 examples.</pre>

<langsyntaxhighlight lang="j">require 'web/gethttp'

)</langsyntaxhighlight>

<langsyntaxhighlight lang="j"> formatSolnCounts getAllTaskSolnCounts ''

...</langsyntaxhighlight>

<langsyntaxhighlight lang="java5">

private static final String baseURL = "http://rosettacode.org/wiki/";

private static final String rootURL = "http://www.rosettacode.org/w/api.php?action=query&list=categorymembers&cmtitle=Category:Programming_Tasks&cmlimit=500&format=xml";

private static final String exmplBegintaskBegin = "<span classtitle=\"tocnumber\">";

private static final String exmplEndtaskEnd = "</span>\"";

private static final String editBeginexmplBegin = "<span class=\"editsectiontocnumber\">";

* /**

exSubTot = Integer.parseInt if (countStrtaskPage.contains("."exmplBegin)) ?{

<langsyntaxhighlight lang="ocaml">open Http_client.Convenience

| Xml.Element ("api", []_, ch) ->

[Xml.Element (let query = get_child "query", [],ch in

let [Xml.Elementcatmb = get_child ("categorymembers", [], cms)])]) -> List.iter fquery cmsin

<langsyntaxhighlight lang="oz">declare

{Main}</langsyntaxhighlight>

my $count = () if (= $tasklistresponse->{$taskcontent} )=~ {/toclevel-1/g;

print "$tasklist{$task} _: $countedcount examples!\n" ;

<langsyntaxhighlight PicoLisplang="picolisp">(load "@lib/http.l")

(out NIL (prinl (ht:Pack Task) ": " Cnt)) ) ) ) ) )</langsyntaxhighlight>

RepeatEndIf

title$ = Mid(x1$, x2 + 7, 99)

title$ = Left(title$, FindString(title$, ">", 1) - 4)

If WhileReceiveHTTPFile(encodedURL$, Not Eof(1"task.xml")

ReadFile(0, "task.xml") y1$ = ReadString(1)

While Not If FindStringEof(y1$, "=={{header|", 10)

y1$ = j + 1ReadString(0)

Wend

PrintN( title$ +": " + StrCloseFile(j0) + " examples")

k + j

CloseFile(1)

Until x2 = 0

<langsyntaxhighlight lang="python">importfrom urllib.request import urlopen, xml.dom.minidomRequest

for i in xml.dom.minidom.parseString(x.read()).getElementsByTagName("'cm"'):

t = i.getAttribute('title').replace("' "', "'_"')

yr = urllib.urlopenRequest("httpf'https://www.rosettacode.org/wmw/index.php?title=%s{t}&action=raw" % t.encode('utf-8')),

print "(f'\nTotal: %d{sum(tasks)} examples." % sum(tasks')</lang>

<langsyntaxhighlight lang="ruby">require 'open-uri'

end</langsyntaxhighlight>

<langsyntaxhighlight lang="ruby">require 'rosettacode'

puts "Total: #{total_examples}"</langsyntaxhighlight>

val counts = for (task <- allTasks \\ "cm" \\ "@title" map (_.text)) yield scala.actors.Futures.future((task, count(task)))

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

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

<langsyntaxhighlight lang="tcl">package require Tcl 8.5

puts "\nTotal: $total examples"</langsyntaxhighlight>

<langsyntaxhighlight lang="tuscript">$$ MODE TUSCRIPT