Rosetta Code/Count examples: Difference between revisions
Content added Content deleted
Line 1,427: | Line 1,427: | ||
puts |
puts |
||
puts "Total: #{total_examples}"</lang> |
puts "Total: #{total_examples}"</lang> |
||
=={{header|Run BASIC}}== |
|||
<lang runbasic>html "<table border=1><tr bgcolor=wheat align=center><td>Num</td><td>Task</td><td>Examples</td></tr>" |
|||
a$ = httpGet$("http://rosettacode.org/wiki/Category:Programming_Tasks") |
|||
a$ = word$(a$,1,"</table></div>") |
|||
i = instr(a$,"<a href=""/wiki/") |
|||
i = instr(a$,"<a href=""/wiki/",i+1) |
|||
while i > 0 |
|||
count = count + 1 |
|||
i = instr(a$,"<a href=""/wiki/",i+1) |
|||
j = instr(a$,">",i+5) |
|||
a1$ = mid$(a$,i+15,j-i) |
|||
taskId$ = word$(a1$,1,"""") |
|||
task$ = word$(a1$,3,"""") |
|||
url$ = "http://rosettacode.org/wiki/";taskId$ |
|||
a2$ = httpGet$(url$) |
|||
ii = instr(a2$,"<span class=""tocnumber"">") |
|||
jj = 0 |
|||
while ii > 0 |
|||
jj = ii |
|||
ii = instr(a2$,"<span class=""tocnumber"">",ii+10) |
|||
wend |
|||
if jj = 0 then |
|||
examp = 0 |
|||
else |
|||
kk = instr(a2$,"<",jj+24) |
|||
examp = int(val(mid$(a2$,jj+24,kk-jj-24))) |
|||
end if |
|||
html "<tr><td align=right>";count;"</td><td>";task$;"</td><td align=right>";examp;"</td></tr>" |
|||
totExamp = totExamp + examp |
|||
wend |
|||
html "<tr bgcolor=wheat><td>**</td><td>** Total **</td><td align=right>";totExamp;"</td></tr></table>" |
|||
end</lang> |
|||
<table border=1><tr bgcolor=wheat align=center><td>Num</td><td>Task</td><td>Examples</td></tr> |
|||
<tr><td align=right>1</td><td>100 doors</td><td align=right>165</td></tr> |
|||
<tr><td align=right>2</td><td>24 game</td><td align=right>56</td></tr> |
|||
<tr><td align=right>3</td><td>24 game/Solve</td><td align=right>34</td></tr> |
|||
<tr><td align=right>4</td><td>99 Bottles of Beer</td><td align=right>192</td></tr> |
|||
<tr><td align=right>5</td><td>A+B</td><td align=right>129</td></tr> |
|||
<tr><td align=right>6</td><td>Abstract type</td><td align=right>51</td></tr> |
|||
<tr><td align=right>7</td><td>Accumulator factory</td><td align=right>65</td></tr> |
|||
<tr><td align=right>8</td><td>Ackermann function</td><td align=right>132</td></tr> |
|||
<tr><td align=right>9</td><td>Active Directory/Connect</td><td align=right>13</td></tr> |
|||
<tr><td align=right>10</td><td>Active Directory/Search for a user</td><td align=right>13</td></tr> |
|||
<tr><td align=right>11</td><td>Active object</td><td align=right>22</td></tr> |
|||
<tr><td align=right>12</td><td>Add a variable to a class instance at runtime</td><td align=right>37</td></tr> |
|||
<tr><td align=right>...</td><td>...</td><td align=right>...</td></tr> |
|||
<tr><td align=right>655</td><td>Y combinator</td><td align=right>53</td></tr> |
|||
<tr><td align=right>656</td><td>Yahoo! search interface</td><td align=right>16</td></tr> |
|||
<tr><td align=right>657</td><td>Yin and yang</td><td align=right>38</td></tr> |
|||
<tr><td align=right>658</td><td>Zebra puzzle</td><td align=right>12</td></tr> |
|||
<tr><td align=right>659</td><td>Zeckendorf number representation</td><td align=right>18</td></tr> |
|||
<tr><td align=right>660</td><td>Zig-zag matrix</td><td align=right>65</td></tr> |
|||
<tr bgcolor=wheat><td>**</td><td>** Total **</td><td align=right>28611</td></tr></table> |
|||
=={{header|Scala}}== |
=={{header|Scala}}== |