Rosetta Code/Count examples: Difference between revisions

<lang ocaml>open Http_client.Convenience

 

let repl_quote s =

let reg = Str.regexp_string "&#039;" in

(Str.global_replace reg "%27" s)

let repl_space s =

let s = String.copy s in

done;

(s)

let count_ex s =

let pat = Str.regexp_string "=={{header|" in

in

aux 0 0

let () =

let url = "http://www.rosettacode.org/w/api.php?action=query&list=categorymembers&\

cmtitle=Category:Programming_Tasks&cmlimit=500&format=xml" in

let xml = Xml.parse_string (http_get url) in

let total = ref 0 in

at_exit (fun () -> Printf.printf "\n Total: %d\n" !total);

let f = function

| Xml.Element ("cm", attrs, _) ->

| _ -> ()

in

match xml with

| _ -> ()</lang>