Template:CountryTable

Revision as of 20:03, 14 September 2008

Top 5 institutes in this country

Author	Affiliation	Country

@@ Line 1: / Line 1: @@
+<table>
+<th colspan=2>Top 5 institutes in this country</th>
+<tr><td>
+{{#lua:
+  local count = {};
+  for word in stdin:gmatch("[%d%a/_:]+") do
+    au, inst = string.match(word,"&&([%a._]+)&&([%a%d,._]+)&&");
+    if (count[inst] == null) then
+      count[inst] = 1;
+    else
+      count[inst] = count[inst] + 1;
+    end
+  end
+  local hash = {};
+  local list = {};
+  for inst, c in pairs(count) do
+    table.insert(list, c);
+    if (hash[c] == null) then
+      hash[c] = inst;
+    else
+      hash[c] = hash[c] .. ";" .. inst;
+    end
+  end
+  table.sort(list);
+  local i=0;
+  local output = "";
+  local num;
+  while(i < 5) do
+    num = table.remove(list);
+    if (num == null) then break; end
+    inst = hash[num];
+    i = i + 1;
+    output = output .. inst .. " (" .. num .." authors);";
+  end
+  print(output);
+|{{{1|}}}
+}}
+</td>
+</tr>
+</table>
 {| class="sortable" border="1" cellpadding="2" cellspacing="1" style="font-size: smaller; float: center; clear: none; margin: 1em 1em 1em 1em"
 |-