Anonymous user
Rosetta Code/Count examples: Difference between revisions
Add Nimrod
(Add Nimrod) |
|||
Line 1,246:
Task "A%2BB" has 105 examples.
...</pre>
=={{header|Nimrod}}==
<lang nimrod>import httpclient, strutils, xmldom, xmldomparser, cgi
proc count(s, sub): int =
var i = 0
while true:
i = s.find(sub, i)
if i < 0:
break
inc i
inc result
const
mainSite = "http://www.rosettacode.org/w/api.php?action=query&list=categorymembers&cmtitle=Category:Programming_Tasks&cmlimit=500&format=xml"
subSite = "http://www.rosettacode.org/w/index.php?title=$#&action=raw"
var sum = 0
for i in getContent(mainSite).loadXML().getElementsByTagName("cm"):
let t = PElement(i).getAttribute("title").replace(" ", "_")
let c = getContent(subSite % URLencode(t)).toLower().count("{{header|")
echo t.replace("_", " "),": ",c," examples."
sum += c
echo "\nTotal: ",sum," examples."</lang>
Output:
<pre>100 doors: 194 examples.
24 game: 68 examples.
24 game/Solve: 40 examples.
9 billion names of God the integer: 20 examples.
99 Bottles of Beer: 225 examples.
A+B: 159 examples.
ABC Problem: 42 examples.
Abstract type: 60 examples.
Accumulator factory: 78 examples.
Ackermann function: 151 examples.
Active Directory/Connect: 16 examples.
[...]</pre>
=={{header|Objeck}}==
| |||