Data commit

Task/Rosetta-Code-Rank-languages-by-popularity/Ring/rosetta-code-rank-languages-by-popularity.ring

@@ -0,0 +1,86 @@
+# Project: Rosetta Code/Rank languages by popularity
+
+load "stdlib.ring"
+ros= download("http://rosettacode.org/wiki/Category:Programming_Languages")
+pos = 1
+totalros = 0
+rosname = ""
+rosnameold = ""
+rostitle = ""
+roslist = []
+for n = 1 to len(ros)
+        nr = searchstring(ros,'<li><a href="/wiki/',pos)
+        if nr = 0
+           exit
+        else
+           pos = nr + 1
+        ok
+        nr = searchname(nr)
+        nr = searchtitle(nr)
+next
+roslist = sortfirst(roslist)
+roslist = reverse(roslist)
+
+see nl
+for n = 1 to len(roslist)
+     see "rank: " + n + " (" + roslist[n][1] + " entries) " + roslist[n][2] + nl
+next
+
+func searchstring(str,substr,n)
+       newstr=right(str,len(str)-n+1)
+       nr = substr(newstr, substr)
+       if nr = 0
+          return 0
+       else
+          return n + nr -1
+       ok
+
+func count(cstring,dstring)
+       sum = 0
+       while substr(cstring,dstring) > 0
+               sum = sum + 1
+               cstring = substr(cstring,substr(cstring,dstring)+len(string(sum)))
+       end
+       return sum
+
+func searchname(sn)
+       nr2 = searchstring(ros,"/wiki/Category:",sn)
+       nr3 = searchstring(ros,"title=",sn)
+       nr4 = searchstring(ros,'">',sn)
+       nr5 = searchstring(ros,"</a></li>",sn)
+       rosname = substr(ros,nr2+15,nr3-nr2-17)
+       rosnameold = substr(ros,nr4+2,nr5-nr4-2)
+       return sn
+
+func searchtitle(sn)
+        rostitle = "rosettacode.org/wiki/Category:" + rosname
+        rostitle = download(rostitle)
+        nr2 = 0
+        roscount = count(rostitle,"The following")
+        if roscount > 0
+           rp = 1
+           for rc = 1 to roscount
+                nr2 = searchstring(rostitle,"The following",rp)
+                rp = nr2 + 1
+           next
+        ok
+        nr3 = searchstring(rostitle,"pages are in this category",nr2)
+        if nr2 > 0 and nr3 > 0
+           rosnr = substr(rostitle,nr2+14,nr3-nr2-15)
+           rosnr = substr(rosnr,",","")
+           add(roslist,[rosnr,rosnameold])
+        ok
+        return sn
+
+func sortfirst(alist)
+        for n = 1 to len(alist) - 1
+             for m = n + 1 to len(alist)
+                  if alist[m][1] < alist[n][1]
+                     swap(alist,m,n)
+                  ok
+                  if alist[m][1] = alist[n][1] and strcmp(alist[m][2],alist[n][2]) > 0
+                     swap(alist,m,n)
+                  ok
+             next
+        next
+        return alist