Rosetta Code/Count examples: Difference between revisions

=={{header|TUSCRIPT}}==

<lang tuscript>

$$ MODE TUSCRIPT

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

data=REQUEST (url)

BUILD S_TABLE beg=*

DATA :title=":

BUILD S_TABLE end=*

DATA :":

titles=EXTRACT (data,beg|,end,1,0,"~~")

titles=SPLIT (titles,":~~:")

sz_titles=SIZE (titles)

BUILD R_TABLE header=":==\{\{header|:"

all=*

ERROR/STOP CREATE ("tasks",seq-e,-std-)

COMPILE

LOOP title=titles

ask=*

ask =SET_VALUE(ask,"title",title)

ask =SET_VALUE(ask,"action","raw")

ask =ENCODE (ask,cgi)

http ="http://www.rosettacode.org/mw/index.php"

url =CONCAT (http,"?",ask)

data =REQUEST (url)

header =FILTER_INDEX (data,header,-)

sz_header=SIZE(header)

line =CONCAT (title,"=",sz_header," members")

FILE "tasks" = line

all =APPEND(all,sz_header)

ENDLOOP

ENDCOMPILE

all =JOIN(all),sum=SUM(all),time=time()

line=CONCAT (time,": ", sz_titles, " Programing Tasks: ", sum, " solutions")

FILE "tasks" = line

</lang>

Output in file "tasks":

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

100 doors=104 members

24 game=27 members

24 game/Solve=21 members

99 Bottles of Beer=124 members

A+B=76 members

Abstract type=35 members

Accumulator factory=44 members

Ackermann function=97 members

Active Directory/Connect=6 members

Active Directory/Search for a user=4 members

...

XML/DOM serialization=23 members

XML/Input=39 members

XML/Output=32 members

XML/XPath=24 members

Xiaolin Wu&#039;s line algorithm=0 members

Y combinator=33 members

Yahoo! search interface=10 members

Zig-zag matrix=46 members

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

</pre>