Data commit

Task/Rosetta-Code-Count-examples/Nim/rosetta-code-count-examples.nim

@@ -0,0 +1,23 @@
+import httpclient, strutils, xmltree, xmlparser, cgi
+
+proc count(s, sub: string): 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/mw/api.php?action=query&list=categorymembers&cmtitle=Category:Programming_Tasks&cmlimit=500&format=xml"
+  subSite = "http://www.rosettacode.org/mw/index.php?title=$#&action=raw"
+
+var client = newHttpClient()
+var sum = 0
+for node in client.getContent(mainSite).parseXml().findAll("cm"):
+  let t = node.attr("title").replace(" ", "_")
+  let c = client.getContent(subSite % encodeUrl(t)).toLower().count("{{header|")
+  echo t.replace("_", " "), ": ", c, " examples."
+  inc sum, c
+
+echo "\nTotal: ", sum, " examples."