Anonymous user
Rosetta Code/Rank languages by popularity: Difference between revisions
Rosetta Code/Rank languages by popularity (view source)
Revision as of 11:01, 7 April 2009
, 15 years ago→{{header|Ruby}}
(Name change to improve readability) |
|||
Line 165:
puts "%3d. %s" % [c+1, line]
end</lang>
=={{header|Tcl}}==
<lang tcl>package require Tcl 8.5
package require http
set response [http::geturl http://www.rosettacode.org/w/index.php?title=Special:Categories&limit=500]
foreach line [split [http::data $response] \n] {
if {[regexp {>([^<]+)</a> \((\d+) member} $line -> lang num]} {
lappend langs [list $num $lang]
}
}
foreach entry [lsort -integer -index 0 -decreasing $langs] {
lassign $entry num lang
puts [format "%3d. %s" $num $lang]
}</lang>
=={{header|UnixPipes}}==
| |||