Rosetta Code

Rosetta Code/Rank languages by number of users: Difference between revisions

Page Discussion

Rosetta Code/Rank languages by number of users (view source)

Revision as of 17:26, 3 February 2024

90,718 bytes added ,  4 months ago
m
→‎{{header|Wren}}: Minor tidy
(+Racket)
m (→‎{{header|Wren}}: Minor tidy)
 
(22 intermediate revisions by 8 users not shown)
Line 1:
{{task}}
{{draft task}}[[Category:Text processing]][[Category:Networking and Web Interaction]][[Category:Sorting]][[Category:Rosetta Code related]]
[[Category:Text processing]]
[[Category:Networking and Web Interaction]]
[[Category:Sorting]]
[[Category:Rosetta Code related]]
 
;Task:
Sort most popular programming languages based on the number of users on Rosetta Code. Show the languages with at least 100 users.
Sort most popular programming languages based on the number of users on Rosetta Code.
 
Show the languages with at least 100 users.
A way to solve the task:
 
Users of a language X are those referenced in the page https://rosettacode.org/wiki/Category:X_User, or preferably https://rosettacode.org/mw/index.php?title=Category:X_User&redirect=no to avoid redirections. In order to find the list of such categories, it's possible to first parse the entries of http://rosettacode.org/mw/index.php?title=Special:Categories&limit=5000. Then download and parse each language users category to count the users.
 
;A method to solve the task:
Sample output on 18 february 2019:
Users of a computer programming language   '''X'''   are those referenced in the page:
https://rosettacode.org/wiki/Category:X_User, or preferably:
https://rosettacode.org/mw/index.php?title=Category:X_User&redirect=no to avoid re-directions.
 
In order to find the list of such categories,   it's possible to first parse the entries of:
http://rosettacode.org/mw/index.php?title=Special:Categories&limit=5000.
 
Then download and parse each computer language   ''users''   category to find the number of users of that computer language.
 
 
Sample output on 18 February 2019:
<pre>Language Users
--------------------------
Line 26 ⟶ 40:
 
A Rosetta Code user usually declares using a language with the [[Template:Mylang|mylang]] template. This template is expected to appear on the User page. However, in some cases it appears in a user Talk page. It's not necessary to take this into account. For instance, among the 373 C users in the table above, 3 are actually declared in a Talk page.
<br><br>
 
__TOC__
 
=={{header|Go}}==
<langsyntaxhighlight lang="go">package main
 
import (
Line 96 ⟶ 109:
fmt.Printf(" %-2d%s %3d %s\n", rank, eq, result.users, result.lang)
}
}</langsyntaxhighlight>
 
{{out}}
Line 149 ⟶ 162:
44= 25 REXX
</pre>
 
=={{header|Julia}}==
<syntaxhighlight lang="julia">""" Rank languages on Rosetta Code's site by number of users."""
 
using Dates
using HTTP
using JSON3
 
const URL = "https://rosettacode.org/w/api.php?"
const PARAMS = ["action" => "query", "format" => "json", "formatversion" => "2", "generator" => "categorymembers",
"gcmtitle" => "Category:Language%20users", "gcmlimit" => "500", "rawcontinue" => "", "prop" => "categoryinfo"]
 
const resp = HTTP.get(URL * join(map(p -> p[1] * (p[2] == "" ? "" : ("=" * p[2])), PARAMS), "&"))
const counts = Pair{Int, String}[]
 
for p in JSON3.read(String(resp.body)).query.pages
contains(p.title, "Category") && push!(counts, p.categoryinfo.size => p.title)
end
 
println("Date: ", now(), "\nLanguage Users\n----------------------")
for p in sort!(filter(p -> p[1] >= 100, counts), rev = true)
println(rpad(replace(p[2], r"Category:(.+) User" => s"\1"), 16), lpad(p[1], 4))
end
</syntaxhighlight>{{out}}
<pre>
Date: 2022-09-03T21:17:29.428
Language Users
----------------------
C 441
Java 321
Python 319
C++ 314
JavaScript 291
PHP 190
Perl 186
SQL 167
UNIX Shell 151
Pascal 133
C sharp 132
BASIC 132
Haskell 115
Ruby 107
</pre>
 
=={{header|Nim}}==
<syntaxhighlight lang="nim">import algorithm, httpclient, json, strformat, strscans, strutils
 
const
Action = "action=query"
Format = "format=json"
FormatVersion = "formatversion=2"
Generator = "generator=categorymembers"
GcmTitle = "gcmtitle=Category:Language%20users"
GcmLimit = "gcmlimit=500"
Prop = "prop=categoryinfo"
 
Page = "http://rosettacode.org/w/api.php?" &
[Action, Format, Formatversion, Generator, GcmTitle, GcmLimit, Prop].join("&")
 
type Counts = tuple[lang: string, count: int]
 
proc cmp(a, b: Counts): int =
## Compare two count tuples. Place the one with greater count field first and when
## count fields are equal, place the one with the first name in alphabetic order.
result = cmp(b.count, a.count)
if result == 0: result = cmp(a.lang, b.lang)
 
var client = newHttpClient()
var counts: seq[Counts]
var url = Page
 
while true:
 
# Access to the page and load the JSON representation.
let response = client.get(url)
if response.status != $Http200: break
let root = response.body.parseJson()
 
# Extract language names and number of users.
for node in root{"query", "pages"}:
var lang: string
if node["title"].getStr().scanf("Category:$+ User", lang):
let count = node{"categoryinfo", "size"}.getInt()
counts.add (lang, count)
if "continue" notin root: break
 
# Load continuation page.
let gcmcont = root{"continue", "gcmcontinue"}.getStr()
let cont = root{"continue", "continue"}.getStr()
url = Page & fmt"&gcmcontinue={gcmcont}&continue={cont}"
 
# Sort and display.
counts.sort(cmp)
var rank, lastCount = 0
for i, (lang, count) in counts:
if count != lastCount:
rank = i + 1
lastCount = count
echo &"{rank:3} {count:4} - {lang}"</syntaxhighlight>
 
{{out}}
<pre> 1 451 - C
2 331 - Java
3 328 - Python
4 321 - C++
5 295 - JavaScript
6 194 - PHP
7 188 - Perl
8 170 - SQL
9 154 - UNIX Shell
10 136 - Pascal
11 135 - C sharp
12 134 - BASIC
13 115 - Haskell
14 109 - Ruby
15 94 - Fortran
16 76 - Visual Basic
17 73 - Scheme
18 70 - Prolog
19 68 - AWK
19 68 - Lua
21 66 - Common Lisp
22 62 - HTML
23 56 - X86 Assembly
24 50 - Forth
25 49 - Batch File
26 47 - Assembly
26 47 - Bash
28 45 - MATLAB
29 42 - Lisp
30 41 - APL
30 41 - Delphi
30 41 - Erlang
30 41 - Go
34 40 - R
35 39 - J
35 39 - Tcl
35 39 - Visual Basic .NET
38 38 - COBOL
39 37 - Objective-C
39 37 - Smalltalk
41 35 - Brainf***
42 33 - Clojure
42 33 - Mathematica
44 30 - OCaml
45 28 - LaTeX
45 28 - REXX
47 27 - AutoHotkey
47 27 - Emacs Lisp
47 27 - PostScript
50 26 - Scala
50 26 - Sed
50 26 - VBScript
53 25 - 6502 Assembly
53 25 - CSS
53 25 - Perl 6
53 25 - Racket
57 24 - MySQL
57 24 - XSLT
59 22 - Rust
60 21 - 8086 Assembly
60 21 - Logo
60 21 - VBA
60 21 - Z80 Assembly
64 19 - Apex
64 19 - F Sharp
64 19 - Julia
64 19 - Make
68 18 - AppleScript
68 18 - Factor
68 18 - PL/I
68 18 - TI-83 BASIC
72 17 - D
72 17 - Standard ML
74 16 - Modula-2
74 16 - PowerShell
76 15 - ARM Assembly
76 15 - ActionScript
76 15 - Icon
76 15 - Nim
80 14 - Maxima
80 14 - SNOBOL4
82 13 - 80386 Assembly
82 13 - Befunge
82 13 - Euphoria
85 12 - CoffeeScript
85 12 - Unicon
87 11 - Eiffel
87 11 - Elixir
87 11 - Groovy
87 11 - Korn Shell
87 11 - MIPS Assembly
87 11 - Octave
87 11 - PARI/GP
87 11 - TypeScript
87 11 - UnixPipes
...
394 0 - Vorpal
394 0 - Vox
394 0 - Wrapl
394 0 - Zonnon</pre>
 
=={{header|Perl}}==
<langsyntaxhighlight lang="perl">use strict;
use warnings;
use JSON;
Line 198 ⟶ 412:
for my $k (sort { $table{$b} <=> $table{$a} } keys %table) {
printf "%4d %s\n", $table{$k}, $k if $table{$k} > $minimum;
}</langsyntaxhighlight>
{{out}}
<pre> 397 C
Line 213 ⟶ 427:
118 Pascal
102 Haskell</pre>
 
=={{header|Perl 6}}==
{{works with|Rakudo|2017.11}}
Use the mediawiki API rather than web scraping since it is much faster and less resource intensive. Show languages with more than 25 users since that is still a pretty short list and to demonstrate how tied rankings are handled. Change the '''$minimum''' parameter to adjust what the cut-off point will be.
 
This is all done in a single pass; ties are not detected until a language has the same count as a previous one, so ties are marked by a '''T''' next to the count indicating that '''this''' language has the same count as the '''previous'''.
 
<lang perl6>use HTTP::UserAgent;
use URI::Escape;
use JSON::Fast;
 
my $client = HTTP::UserAgent.new;
 
my $url = 'http://rosettacode.org/mw';
 
my $start-time = now;
 
say "========= Generated: { DateTime.new(time) } =========";
 
my $lang = 1;
my $rank = 0;
my $last = 0;
my $tie = ' ';
my $minimum = 25;
 
.say for
mediawiki-query(
$url, 'pages',
:generator<categorymembers>,
:gcmtitle<Category:Language users>,
:gcmlimit<350>,
:rawcontinue(),
:prop<categoryinfo>
)
 
.map({ %( count => .<categoryinfo><pages> || 0,
lang => .<title>.subst(/^'Category:' (.+) ' User'/, ->$/ {$0}) ) })
 
.sort( { -.<count>, .<lang> } )
 
.map( { last if .<count> < $minimum; display(.<count>, .<lang>) } );
 
say "========= elapsed: {(now - $start-time).round(.01)} seconds =========";
 
sub display ($count, $which) {
if $last != $count { $last = $count; $rank = $lang; $tie = ' ' } else { $tie = 'T' };
sprintf "#%3d Rank: %2d %s with %-4s users: %s", $lang++, $rank, $tie, $count, $which;
}
 
sub mediawiki-query ($site, $type, *%query) {
my $url = "$site/api.php?" ~ uri-query-string(
:action<query>, :format<json>, :formatversion<2>, |%query);
my $continue = '';
 
gather loop {
my $response = $client.get("$url&$continue");
my $data = from-json($response.content);
take $_ for $data.<query>.{$type}.values;
$continue = uri-query-string |($data.<query-continue>{*}».hash.hash or last);
}
}
 
sub uri-query-string (*%fields) {
join '&', %fields.map: { "{.key}={uri-escape .value}" }
}</lang>
 
{{out}}
<pre>========= Generated: 2018-06-01T22:09:26Z =========
# 1 Rank: 1 with 380 users: C
# 2 Rank: 2 with 269 users: Java
# 3 Rank: 3 with 266 users: C++
# 4 Rank: 4 with 251 users: Python
# 5 Rank: 5 with 234 users: JavaScript
# 6 Rank: 6 with 167 users: Perl
# 7 Rank: 7 with 166 users: PHP
# 8 Rank: 8 with 134 users: SQL
# 9 Rank: 9 with 125 users: UNIX Shell
# 10 Rank: 10 with 119 users: BASIC
# 11 Rank: 11 with 116 users: C sharp
# 12 Rank: 12 with 112 users: Pascal
# 13 Rank: 13 with 99 users: Haskell
# 14 Rank: 14 with 93 users: Ruby
# 15 Rank: 15 with 74 users: Fortran
# 16 Rank: 16 with 67 users: Visual Basic
# 17 Rank: 17 with 62 users: Prolog
# 18 Rank: 18 with 61 users: Scheme
# 19 Rank: 19 with 58 users: Common Lisp
# 20 Rank: 20 with 55 users: Lua
# 21 Rank: 21 with 53 users: AWK
# 22 Rank: 22 with 52 users: HTML
# 23 Rank: 23 with 46 users: Assembly
# 24 Rank: 24 with 44 users: Batch File
# 25 Rank: 25 with 42 users: Bash
# 26 Rank: 25 T with 42 users: X86 Assembly
# 27 Rank: 27 with 40 users: Erlang
# 28 Rank: 28 with 38 users: Forth
# 29 Rank: 29 with 37 users: MATLAB
# 30 Rank: 30 with 36 users: Lisp
# 31 Rank: 31 with 35 users: J
# 32 Rank: 31 T with 35 users: Visual Basic .NET
# 33 Rank: 33 with 34 users: Delphi
# 34 Rank: 34 with 33 users: APL
# 35 Rank: 34 T with 33 users: Ada
# 36 Rank: 34 T with 33 users: Brainf***
# 37 Rank: 34 T with 33 users: Objective-C
# 38 Rank: 34 T with 33 users: Tcl
# 39 Rank: 39 with 32 users: R
# 40 Rank: 40 with 31 users: COBOL
# 41 Rank: 41 with 30 users: Go
# 42 Rank: 42 with 29 users: Perl 6
# 43 Rank: 43 with 27 users: Clojure
# 44 Rank: 43 T with 27 users: Mathematica
# 45 Rank: 45 with 25 users: AutoHotkey
========= elapsed: 1.45 seconds =========</pre>
 
=={{header|Phix}}==
Line 352 ⟶ 452:
19: 59 - Common Lisp
20: 58 - AWK
</pre>
 
=={{header|Python}}==
{{libheader|requests}}
 
<syntaxhighlight lang="python">"""Rank languages by number of users. Requires Python >=3.5"""
 
import requests
 
# MediaWiki API URL.
URL = "http://rosettacode.org/mw/api.php"
 
# Query string parameters
PARAMS = {
"action": "query",
"format": "json",
"formatversion": 2,
"generator": "categorymembers",
"gcmtitle": "Category:Language users",
"gcmlimit": 500,
"prop": "categoryinfo",
}
 
 
def fetch_data():
counts = {}
continue_ = {"continue": ""}
 
# Keep making HTTP requests to the MediaWiki API if more records are
# available.
while continue_:
resp = requests.get(URL, params={**PARAMS, **continue_})
resp.raise_for_status()
 
data = resp.json()
 
# Grab the title (language) and size (count) only.
counts.update(
{
p["title"]: p.get("categoryinfo", {}).get("size", 0)
for p in data["query"]["pages"]
}
)
 
continue_ = data.get("continue", {})
 
return counts
 
 
if __name__ == "__main__":
# Request data from the MediaWiki API.
counts = fetch_data()
 
# Filter out languages that have less than 100 users.
at_least_100 = [(lang, count) for lang, count in counts.items() if count >= 100]
 
# Sort languages by number of users
top_languages = sorted(at_least_100, key=lambda x: x[1], reverse=True)
 
# Pretty print
for i, lang in enumerate(top_languages):
print(f"{i+1:<5}{lang[0][9:][:-5]:<20}{lang[1]}")
</syntaxhighlight>
 
{{out}}
<pre>
1 C 423
2 Java 308
3 C++ 301
4 Python 301
5 JavaScript 279
6 PHP 182
7 Perl 181
8 SQL 158
9 UNIX Shell 149
10 Pascal 130
11 C sharp 130
12 BASIC 129
13 Haskell 111
14 Ruby 102
</pre>
 
Line 358 ⟶ 538:
Note: the implementation is very similar to [[Rosetta_Code/Rank_languages_by_popularity#Racket|Rank languages by popularity]].
 
<langsyntaxhighlight lang="racket">#lang racket
(require racket/hash
Line 392 ⟶ 572:
(cond [(@ resp 'continue #f) => (λ (c) (loop (@ c 'gcmcontinue)))]))
(for/fold ([prev #f] [rank #f] #:result (void))
(call-with-values
([item (in-list (sort (hash->list table) > #:key cdr))] [i (in-range limit)])
(thunk
(for/foldmatch-define ([prevcons #f]cat [ranksize) #f]item)
(define this-rank (if (equal? prev size) rank (add1 i)))
([item (in-list (sort (hash->list table) > #:key cdr))] [i (in-range limit)])
(printf "Rank: ~a ~a ~a\n"
(match-define (cons cat size) item)
(~a this-rank #:align 'right #:min-width 2)
(define this-rank (if (equal? prev size) rank (add1 i)))
(~a (format "(~a ~a)" size entries) #:align 'right #:min-width 14)
(printf "Rank: ~a ~a ~a\n"
(~a this-rank #:align 'right #:min-widthreplacer 2cat))
(values size this-rank))</syntaxhighlight>
(~a (format "(~a ~a)" size entries) #:align 'right #:min-width 14)
(replacer cat))
(values size this-rank)))
void)</lang>
 
{{out}}
Line 471 ⟶ 648:
Rank: 60 (17 users) F Sharp
Rank: 64 (16 users) PL/I
</pre>
 
=={{header|Raku}}==
(formerly Perl 6)
{{works with|Rakudo|2017.11}}
Use the mediawiki API rather than web scraping since it is much faster and less resource intensive. Show languages with more than 25 users since that is still a pretty short list and to demonstrate how tied rankings are handled. Change the '''$minimum''' parameter to adjust what the cut-off point will be.
 
This is all done in a single pass; ties are not detected until a language has the same count as a previous one, so ties are marked by a '''T''' next to the count indicating that '''this''' language has the same count as the '''previous'''.
 
<syntaxhighlight lang="raku" line>use HTTP::UserAgent;
use URI::Escape;
use JSON::Fast;
 
my $client = HTTP::UserAgent.new;
 
my $url = 'https://rosettacode.org/w';
 
my $start-time = now;
 
say "========= Generated: { DateTime.new(time) } =========";
 
my $lang = 1;
my $rank = 0;
my $last = 0;
my $tie = ' ';
my $minimum = 25;
 
.say for
mediawiki-query(
$url, 'pages',
:generator<categorymembers>,
:gcmtitle<Category:Language users>,
:gcmlimit<350>,
:rawcontinue(),
:prop<categoryinfo>
)
 
.map({ %( count => .<categoryinfo><pages> || 0,
lang => .<title>.subst(/^'Category:' (.+) ' User'/, ->$/ {$0}) ) })
 
.sort( { -.<count>, .<syntaxhighlight lang="text"> } )
 
.map( { last if .<count> < $minimum; display(.<count>, .<syntaxhighlight lang="text">) } );
 
say "========= elapsed: {(now - $start-time).round(.01)} seconds =========";
 
sub display ($count, $which) {
if $last != $count { $last = $count; $rank = $lang; $tie = ' ' } else { $tie = 'T' };
sprintf "#%3d Rank: %2d %s with %-4s users: %s", $lang++, $rank, $tie, $count, $which;
}
 
sub mediawiki-query ($site, $type, *%query) {
my $url = "$site/api.php?" ~ uri-query-string(
:action<query>, :format<json>, :formatversion<2>, |%query);
my $continue = '';
 
gather loop {
my $response = $client.get("$url&$continue");
my $data = from-json($response.content);
take $_ for $data.<query>.{$type}.values;
$continue = uri-query-string |($data.<query-continue>{*}».hash.hash or last);
}
}
 
sub uri-query-string (*%fields) {
join '&', %fields.map: { "{.key}={uri-escape .value}" }
}</syntaxhighlight>
 
{{out}}
<pre>========= Generated: 2022-09-02T20:59:20Z =========
# 1 Rank: 1 with 441 users: C
# 2 Rank: 2 with 321 users: Java
# 3 Rank: 3 with 319 users: Python
# 4 Rank: 4 with 314 users: C++
# 5 Rank: 5 with 291 users: JavaScript
# 6 Rank: 6 with 190 users: PHP
# 7 Rank: 7 with 186 users: Perl
# 8 Rank: 8 with 167 users: SQL
# 9 Rank: 9 with 151 users: UNIX Shell
# 10 Rank: 10 with 133 users: Pascal
# 11 Rank: 11 with 132 users: BASIC
# 12 Rank: 11 T with 132 users: C sharp
# 13 Rank: 13 with 115 users: Haskell
# 14 Rank: 14 with 107 users: Ruby
# 15 Rank: 15 with 94 users: Fortran
# 16 Rank: 16 with 75 users: Visual Basic
# 17 Rank: 17 with 72 users: Scheme
# 18 Rank: 18 with 70 users: Prolog
# 19 Rank: 19 with 68 users: AWK
# 20 Rank: 19 T with 68 users: Lua
# 21 Rank: 21 with 66 users: Common Lisp
# 22 Rank: 22 with 61 users: HTML
# 23 Rank: 23 with 55 users: X86 Assembly
# 24 Rank: 24 with 50 users: Forth
# 25 Rank: 25 with 49 users: Batch File
# 26 Rank: 26 with 47 users: Assembly
# 27 Rank: 27 with 45 users: Bash
# 28 Rank: 27 T with 45 users: MATLAB
# 29 Rank: 29 with 42 users: Lisp
# 30 Rank: 30 with 41 users: APL
# 31 Rank: 30 T with 41 users: Erlang
# 32 Rank: 32 with 40 users: Delphi
# 33 Rank: 32 T with 40 users: R
# 34 Rank: 34 with 39 users: J
# 35 Rank: 34 T with 39 users: Visual Basic .NET
# 36 Rank: 36 with 38 users: Go
# 37 Rank: 36 T with 38 users: Tcl
# 38 Rank: 38 with 37 users: COBOL
# 39 Rank: 39 with 36 users: Smalltalk
# 40 Rank: 40 with 35 users: Brainf***
# 41 Rank: 40 T with 35 users: Objective-C
# 42 Rank: 42 with 34 users: Clojure
# 43 Rank: 43 with 33 users: Mathematica
# 44 Rank: 44 with 30 users: OCaml
# 45 Rank: 45 with 28 users: LaTeX
# 46 Rank: 46 with 27 users: AutoHotkey
# 47 Rank: 46 T with 27 users: Emacs Lisp
# 48 Rank: 46 T with 27 users: PostScript
# 49 Rank: 46 T with 27 users: REXX
# 50 Rank: 50 with 26 users: Perl 6
# 51 Rank: 50 T with 26 users: Sed
# 52 Rank: 52 with 25 users: CSS
# 53 Rank: 52 T with 25 users: Scala
# 54 Rank: 52 T with 25 users: VBScript
========= elapsed: 1.48 seconds =========
 
========= elapsed: 1.45 seconds =========</pre>
 
=={{header|REXX}}==
(Native) REXX doesn't support web-page reading, so the mentioned &nbsp; ''Rosetta Code categories'' &nbsp; and
<br>''Rosetta Code Languages'' &nbsp; were downloaded to local files.
 
<br>This program reads the &nbsp; ''Languages'' &nbsp; file &nbsp; (looking for a language user) &nbsp; and uses the contents of <br>that file for a validation of the &nbsp; ''categories'' &nbsp; file.
<br>This essentially is a perfect filter for the &nbsp; ''Rosetta Code categories'' &nbsp; file.
 
The &nbsp; '''catHeap''' &nbsp; variable in the REXX program is just a long string of all the records in the web-file of the
<br>Rosetta Code categories, with a special character ('''sep''') that separates each count of users
<br>for a computer programming language entry (name).
 
The mechanism is to use a (sparse) stemmed array which holds only the names of languages which
<br>(for most REXXes) uses a hashing algorithm to locate the entry &nbsp; (which is very fast).
 
Programming note: &nbsp; (REXX doesn't handle Unicode characters) &nbsp; some special cases that are translated:
:::* &nbsp; '''╬£C++''' &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; translated into &nbsp; '''µC++''' &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; [Greek micro]
:::* &nbsp; '''╨£╨Ü-61/52''' &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; translated into &nbsp; '''MK-61/52''' &nbsp; [Cyrillic &nbsp; '''МК-61/52'''])
:::* &nbsp; '''??-61/52''' &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; translated into &nbsp; '''MK-61/52''' &nbsp; [Cyrillic &nbsp; '''МК-61/52'''])
:::* &nbsp; '''D├⌐j├á Vu''' &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; translated into &nbsp; '''Déjà Vu'''
:::* &nbsp; '''Cach├⌐''' &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; translated into &nbsp; '''Caché'''
:::* &nbsp; '''F┼ìrmul├ª''' &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; translated into &nbsp; '''Fôrmulæ'''
:::* &nbsp; '''உயிர்/Uyir''' &nbsp;&nbsp; &nbsp; translated into &nbsp; '''Uyir'''
:::* &nbsp; '''МiniZinc''' &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; translated into &nbsp; '''MiniZinc'''
(The 3<sup>rd</sup> entry is most likely caused by the inability to render unsupported glyphs when it was first used to add that language.)
 
 
Code was added to support the renaming of the computer programming language &nbsp; '''Perl 6''' &nbsp; ──► &nbsp; '''Raku'''.
 
Note that this REXX example properly ranks tied languages.
<syntaxhighlight lang="rexx">/*REXX program reads 2 files & displays a ranked list of Rosetta Code languages by users*/
parse arg catFID lanFID outFID . /*obtain optional arguments from the CL*/
call init /*initialize some REXX variables. */
call get /*obtain data from two separate files. */
call eSort #,0 /*sort languages along with members. */
call tSort /* " " that are tied in rank.*/
call eSort #,1 /* " " along with members. */
call out /*create the RC_USER.OUT (output) file.*/
exit 0 /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
commas: parse arg _; do jc=length(_)-3 to 1 by -3; _= insert(",",_,jc); end; return _
s: if arg(1)==1 then return arg(3); return word(arg(2) 's',1) /*pluralizer.*/
/*──────────────────────────────────────────────────────────────────────────────────────*/
eSort: procedure expose #. @. !tr.; arg N,p2; h= N /*sort: number of members*/
do while h>1; h= h % 2 /*halve number of records*/
do i=1 for N-h; j= i; k= h + i /*sort this part of list.*/
if p2 then do while !tR.k==!tR.j & @.k>@.j /*this uses a hard swap ↓*/
@= @.j; #= !tR.j; @.j= @.k; !tR.j= !tR.k; @.k= @; !tR.k= #
if h>=j then leave; j= j - h; k= k - h
end /*while !tR.k==···*/
else do while #.k<#.j /*this uses a hard swap ↓*/
@= @.j; #= #.j; @.j= @.k; #.j= #.k; @.k= @; #.k= #
if h>=j then leave; j= j - h; k= k - h
end /*while #.k<···*/
end /*i*/ /*hard swaps needed for embedded blanks.*/
end /*while h>1*/; return
/*──────────────────────────────────────────────────────────────────────────────────────*/
get: langs= 0; call rdr 'languages' /*assign languages ───► L.ααα */
call rdr 'categories' /*append categories ───► catHeap */
#= 0
do j=1 until catHeap=='' /*process the heap of categories. */
parse var catHeap cat.j (sep) catHeap /*get a category from the catHeap. */
parse var cat.j cat.j '<' "(" mems . /*untangle the strange─looking string. */
cat.j= space(cat.j); ?=cat.j; upper ? /*remove any superfluous blanks. */
if ?=='' | \L.? then iterate /*it's blank or it's not a language. */
if pos(',', mems)\==0 then mems= space(translate(mems,,","), 0) /*¬commas.*/
if \datatype(mems, 'W') then iterate /*is the "members" number not numeric? */
#.0= #.0 + mems /*bump the number of members found. */
if u.?\==0 then do; do f=1 for # until ?==@u.f
end /*f*/
#.f= #.f + mems; iterate j /*languages in different cases.*/
end /* [↑] handle any possible duplicates.*/
u.?= u.? + 1; #= # + 1 /*bump a couple of counters. */
#.#= #.# + mems; @.#= cat.j; @u.#=? /*bump the counter; assign it (upper).*/
end /*j*/
 
!.=; @tno= '(total) number of' /*array holds indication of TIED langs.*/
call tell right(commas(#), 9) @tno 'languages detected in the category file'
call tell right(commas(langs),9) ' " " " " " " " language "'
call tell right(commas(#.0), 9) @tno 'entries (users of lanugages) detected', , 1
term= 0
return /*don't show any more msgs──►term. [↑] */
/*──────────────────────────────────────────────────────────────────────────────────────*/
init: sep= '█'; L.=0; #.=0; u.=#.; catHeap=; term=1; old.= /*assign some REXX vars*/
if catFID=='' then catFID= "RC_USER.CAT" /*Not specified? Then use the default.*/
if lanFID=='' then lanFID= "RC_USER.LAN" /* " " " " " " */
if outFID=='' then outFID= "RC_USER.OUT" /* " " " " " " */
call tell center('timestamp: ' date() time("Civil"),79,'═'), 2, 1; return
/*──────────────────────────────────────────────────────────────────────────────────────*/
out: w= length( commas(#) ); rank= 0 /* [↓] show by ascending rank of lang.*/
do t=# by -1 for #; rank= rank + 1 /*bump rank of a programming language. */
call tell right('rank:' right(commas(!tR.t), w), 20-1) right(!.t, 7),
right('('commas(#.t) left("entr"s(#.t, 'ies', "y")')', 9), 20) @.t
end /*#*/ /* [↑] S(···) pluralizes a word. */
call tell left('', 27) "☼ end─of─list. ☼", 1, 2; return /*bottom title.*/
/*──────────────────────────────────────────────────────────────────────────────────────*/
rdr: arg which 2; igAst= 1 /*ARG uppers WHICH, obtain the 1st char*/
if which=='L' then inFID= lanFID /*use this fileID for the languages. */
if which=='C' then inFID= catFID /* " " " " " categories. */
Uyir= 'உயிர்/Uyir' /*Unicode (in text) name for Uyir */
old.0= '╬£C++' ; new.0= "µC++" /*Unicode ╬£C++ ───► ASCII─8: µC++ */
old.1= 'UC++' ; new.1= "µC++" /*old UC++ ───► ASCII─8: µC++ */
old.2= '╨£╨Ü-' ; new.2= "MK-" /*Unicode ╨£╨Ü─ ───► ASCII-8: MK- */
old.3= 'D├⌐j├á' ; new.3= "Déjà" /*Unicode ├⌐j├á ───► ASCII─8: Déjà */
old.4= 'Cach├⌐' ; new.4= "Caché" /*Unicode Cach├⌐ ───► ASCII─8: Caché */
old.5= '??-61/52' ; new.5= "MK-61/52" /*somewhere past, a mis─translated: MK-*/
old.6= 'F┼ìrmul├ª' ; new.6= 'Fôrmulæ' /*Unicode ───► ASCII─8: Fôrmulæ */
old.7= '╨£iniZinc' ; new.7= 'MiniZinc' /*Unicode ───► ASCII─8: MiniZinc*/
old.8= Uyir ; new.8= 'Uyir' /*Unicode ───► ASCII─8: Uyir */
old.9= 'Perl 6' ; new.9= 'Raku' /* (old name) ───► (new name) */
 
do recs=0 while lines(inFID) \== 0 /*read a file, a single line at a time.*/
$= translate( linein(inFID), , '9'x) /*handle any stray TAB ('09'x) chars.*/
$$= space($); if $$=='' then iterate /*ignore all blank lines in the file(s)*/
do v=0 while old.v \== '' /*translate Unicode variations of langs*/
if pos(old.v, $$) \==0 then $$= changestr(old.v, $$, new.v)
end /*v*/ /* [↑] handle different lang spellings*/
if igAst then do; igAst= pos(' * ', $)==0; if igAst then iterate; end
if pos('RETRIEVED FROM', translate($$))\==0 then leave /*pseudo End─Of─Data?.*/
if which=='L' then do; if left($$, 1)\=="*" then iterate /*lang ¬legitimate?*/
parse upper var $$ '*' $$ "<"; $$= space($$)
if $$=='' then iterate
$$= $$ 'USER'
L.$$= 1
langs= langs + 1 /*bump # of languages/users found.*/
iterate
end /* [↓] extract computer language name.*/
if left($$, 1)=='*' then $$= sep || space( substr($$, 2) )
catHeap= catHeap $$ /*append to the catHeap (CATegory) heap*/
end /*recs*/
call tell right( commas(recs), 9) 'records read from file: ' inFID
return
/*──────────────────────────────────────────────────────────────────────────────────────*/
tell: do '0'arg(2); call lineout outFID," " ; if term then say ; end
call lineout outFID,arg(1) ; if term then say arg(1)
do '0'arg(3); call lineout outFID," " ; if term then say ; end
return /*show BEFORE blank lines (if any), message, show AFTER blank lines.*/
/*──────────────────────────────────────────────────────────────────────────────────────*/
tSort: tied=; r= 0 /*add true rank (tR) ───► the entries. */
do j=# by -1 for #; r= r+1; tR= r; !tR.j= r; jp= j+1; jm= j-1
if tied=='' then pR= r; tied= /*handle when language rank is untied. */
if #.j==#.jp | #.j==#.jm then do; !.j= '[tied]'; tied= !.j; end
if #.j==#.jp then do; tR= pR; !tR.j= pR; end
else pR= r
end /*j*/; return</syntaxhighlight>
{{out|output|text=&nbsp; when using the default inputs:}}
<pre style="height:165ex">
═════════════════════════timestamp: 7 Apr 2021 6:44pm═════════════════════════
 
1,094 records read from file: RC_USER.LAN
7,641 records read from file: RC_USER.CAT
474 (total) number of languages detected in the category file
835 " " " " " " " language "
6,057 (total) number of entries (users of lanugages) detected
 
rank: 1 (424 entries) C User
rank: 2 (309 entries) JAVA User
rank: 3 (302 entries) C++ User
rank: 4 (299 entries) Python User
rank: 5 (280 entries) JavaScript User
rank: 6 (183 entries) PHP User
rank: 7 (181 entries) Perl User
rank: 8 (158 entries) SQL User
rank: 9 (151 entries) UNIX Shell User
rank: 10 (132 entries) C Sharp User
rank: 11 [tied] (130 entries) BASIC User
rank: 11 [tied] (130 entries) Pascal User
rank: 13 (111 entries) Haskell User
rank: 14 (102 entries) Ruby User
rank: 15 (96 entries) FORTRAN User
rank: 16 (73 entries) Visual Basic User
rank: 17 [tied] (70 entries) Prolog User
rank: 17 [tied] (70 entries) Scheme User
rank: 19 (69 entries) AWK User
rank: 20 (66 entries) LUA User
rank: 21 (62 entries) Common Lisp User
rank: 22 (51 entries) X86 Assembly User
rank: 23 [tied] (50 entries) Batch File User
rank: 23 [tied] (50 entries) FORTH User
rank: 25 [tied] (47 entries) Assembly User
rank: 25 [tied] (47 entries) MATLAB User
rank: 27 (45 entries) LISP User
rank: 28 [tied] (40 entries) ADA User
rank: 28 [tied] (40 entries) Delphi User
rank: 28 [tied] (40 entries) Erlang User
rank: 28 [tied] (40 entries) TCL User
rank: 32 (39 entries) R User
rank: 33 [tied] (38 entries) COBOL User
rank: 33 [tied] (38 entries) Visual Basic .NET User
rank: 35 [tied] (37 entries) APL User
rank: 35 [tied] (37 entries) J User
rank: 37 [tied] (36 entries) Objective-C User
rank: 37 [tied] (36 entries) SmallTalk User
rank: 39 (35 entries) Go User
rank: 40 (34 entries) Brainf*** User
rank: 41 [tied] (32 entries) Clojure User
rank: 41 [tied] (32 entries) Mathematica User
rank: 43 (30 entries) Raku User
rank: 44 [tied] (29 entries) OCaml User
rank: 44 [tied] (29 entries) REXX User
rank: 46 (27 entries) PostScript User
rank: 47 [tied] (26 entries) Emacs Lisp User
rank: 47 [tied] (26 entries) LaTeX User
rank: 47 [tied] (26 entries) Sed User
rank: 50 (25 entries) AutoHotkey User
rank: 51 [tied] (24 entries) 6502 Assembly User
rank: 51 [tied] (24 entries) MySQL User
rank: 53 [tied] (23 entries) Racket User
rank: 53 [tied] (23 entries) Scala User
rank: 53 [tied] (23 entries) VBScript User
rank: 53 [tied] (23 entries) XSLT User
rank: 57 (21 entries) 8086 Assembly User
rank: 58 (20 entries) F Sharp User
rank: 59 [tied] (19 entries) Rust User
rank: 59 [tied] (19 entries) TI-83 BASIC User
rank: 59 [tied] (19 entries) VBA User
rank: 59 [tied] (19 entries) Z80 Assembly User
rank: 63 [tied] (18 entries) Factor User
rank: 63 [tied] (18 entries) Logo User
rank: 63 [tied] (18 entries) Make User
rank: 63 [tied] (18 entries) PowerShell User
rank: 67 [tied] (17 entries) Apex User
rank: 67 [tied] (17 entries) PL/I User
rank: 67 [tied] (17 entries) Standard ML User
rank: 67 [tied] (17 entries) Swift User
rank: 71 [tied] (16 entries) D User
rank: 71 [tied] (16 entries) Julia User
rank: 71 [tied] (16 entries) Modula-2 User
rank: 74 [tied] (15 entries) ARM Assembly User
rank: 74 [tied] (15 entries) ActionScript User
rank: 74 [tied] (15 entries) AppleScript User
rank: 74 [tied] (15 entries) Icon User
rank: 78 [tied] (14 entries) Maxima User
rank: 78 [tied] (14 entries) SNOBOL4 User
rank: 80 [tied] (13 entries) Befunge User
rank: 80 [tied] (13 entries) CoffeeScript User
rank: 80 [tied] (13 entries) Nim User
rank: 83 [tied] (12 entries) 80386 Assembly User
rank: 83 [tied] (12 entries) Euphoria User
rank: 83 [tied] (12 entries) Unicon User
rank: 86 [tied] (11 entries) Eiffel User
rank: 86 [tied] (11 entries) Elixir User
rank: 86 [tied] (11 entries) Groovy User
rank: 86 [tied] (11 entries) Octave User
rank: 86 [tied] (11 entries) PARI/GP User
rank: 91 [tied] (10 entries) Dc User
rank: 91 [tied] (10 entries) MIPS Assembly User
rank: 91 [tied] (10 entries) PL/SQL User
rank: 91 [tied] (10 entries) SAS User
rank: 91 [tied] (10 entries) UnixPipes User
rank: 96 [tied] (9 entries) AutoIt User
rank: 96 [tied] (9 entries) BBC BASIC User
rank: 96 [tied] (9 entries) JCL User
rank: 96 [tied] (9 entries) M4 User
rank: 96 [tied] (9 entries) Oz User
rank: 96 [tied] (9 entries) Processing User
rank: 96 [tied] (9 entries) REBOL User
rank: 96 [tied] (9 entries) TypeScript User
rank: 104 [tied] (8 entries) 68000 Assembly User
rank: 104 [tied] (8 entries) Gnuplot User
rank: 104 [tied] (8 entries) LabVIEW User
rank: 104 [tied] (8 entries) POV-Ray User
rank: 104 [tied] (8 entries) PicoLisp User
rank: 109 [tied] (7 entries) ALGOL 68 User
rank: 109 [tied] (7 entries) ASP User
rank: 109 [tied] (7 entries) DCL User
rank: 109 [tied] (7 entries) Liberty BASIC User
rank: 109 [tied] (7 entries) MUMPS User
rank: 109 [tied] (7 entries) Maple User
rank: 109 [tied] (7 entries) Mercury User
rank: 109 [tied] (7 entries) PDP-11 Assembly User
rank: 109 [tied] (7 entries) PowerBASIC User
rank: 109 [tied] (7 entries) PureBasic User
rank: 109 [tied] (7 entries) Scratch User
rank: 109 [tied] (7 entries) VHDL User
rank: 121 [tied] (6 entries) Applesoft BASIC User
rank: 121 [tied] (6 entries) Bc User
rank: 121 [tied] (6 entries) ColdFusion User
rank: 121 [tied] (6 entries) Commodore BASIC User
rank: 121 [tied] (6 entries) Dart User
rank: 121 [tied] (6 entries) HyperTalk User
rank: 121 [tied] (6 entries) Io User
rank: 121 [tied] (6 entries) Joy User
rank: 121 [tied] (6 entries) Modula-3 User
rank: 121 [tied] (6 entries) Pike User
rank: 121 [tied] (6 entries) Self User
rank: 121 [tied] (6 entries) Vim Script User
rank: 133 [tied] (5 entries) 8080 Assembly User
rank: 133 [tied] (5 entries) ABAP User
rank: 133 [tied] (5 entries) ALGOL 60 User
rank: 133 [tied] (5 entries) CMake User
rank: 133 [tied] (5 entries) Clipper User
rank: 133 [tied] (5 entries) FreeBASIC User
rank: 133 [tied] (5 entries) GML User
rank: 133 [tied] (5 entries) Haxe User
rank: 133 [tied] (5 entries) Inform 7 User
rank: 133 [tied] (5 entries) Integer BASIC User
rank: 133 [tied] (5 entries) K User
rank: 133 [tied] (5 entries) Kotlin User
rank: 133 [tied] (5 entries) NSIS User
rank: 133 [tied] (5 entries) NewLISP User
rank: 133 [tied] (5 entries) Q User
rank: 133 [tied] (5 entries) REALbasic User
rank: 133 [tied] (5 entries) TI-89 BASIC User
rank: 133 [tied] (5 entries) VB6 User
rank: 133 [tied] (5 entries) Verilog User
rank: 133 [tied] (5 entries) XQuery User
rank: 153 [tied] (4 entries) 360 Assembly User
rank: 153 [tied] (4 entries) BCPL User
rank: 153 [tied] (4 entries) C Shell User
rank: 153 [tied] (4 entries) FALSE User
rank: 153 [tied] (4 entries) GAP User
rank: 153 [tied] (4 entries) GolfScript User
rank: 153 [tied] (4 entries) HQ9+ User
rank: 153 [tied] (4 entries) Locomotive Basic User
rank: 153 [tied] (4 entries) M680x0 User
rank: 153 [tied] (4 entries) OoRexx User
rank: 153 [tied] (4 entries) PIR User
rank: 153 [tied] (4 entries) PlainTeX User
rank: 153 [tied] (4 entries) PowerPC Assembly User
rank: 153 [tied] (4 entries) QBASIC User
rank: 153 [tied] (4 entries) Run BASIC User
rank: 153 [tied] (4 entries) Scilab User
rank: 153 [tied] (4 entries) TorqueScript User
rank: 153 [tied] (4 entries) Vala User
rank: 153 [tied] (4 entries) ZX Spectrum Basic User
rank: 172 [tied] (3 entries) 6800 Assembly User
rank: 172 [tied] (3 entries) ALGOL User
rank: 172 [tied] (3 entries) ASP.Net User
rank: 172 [tied] (3 entries) Dylan User
rank: 172 [tied] (3 entries) Egison User
rank: 172 [tied] (3 entries) Falcon User
rank: 172 [tied] (3 entries) Fantom User
rank: 172 [tied] (3 entries) Free Pascal User
rank: 172 [tied] (3 entries) Frink User
rank: 172 [tied] (3 entries) GW-BASIC User
rank: 172 [tied] (3 entries) HLA User
rank: 172 [tied] (3 entries) IDL User
rank: 172 [tied] (3 entries) LFE User
rank: 172 [tied] (3 entries) MMIX User
rank: 172 [tied] (3 entries) N/t/roff User
rank: 172 [tied] (3 entries) NetRexx User
rank: 172 [tied] (3 entries) Nial User
rank: 172 [tied] (3 entries) Oberon-2 User
rank: 172 [tied] (3 entries) Object Pascal User
rank: 172 [tied] (3 entries) Occam User
rank: 172 [tied] (3 entries) PL/pgSQL User
rank: 172 [tied] (3 entries) Pure User
rank: 172 [tied] (3 entries) RPG User
rank: 172 [tied] (3 entries) SPARC Assembly User
rank: 172 [tied] (3 entries) SPARK User
rank: 172 [tied] (3 entries) Sather User
rank: 172 [tied] (3 entries) SequenceL User
rank: 172 [tied] (3 entries) Shen User
rank: 172 [tied] (3 entries) Snobol User
rank: 172 [tied] (3 entries) Teco User
rank: 172 [tied] (3 entries) Transact-SQL User
rank: 172 [tied] (3 entries) VAX Assembly User
rank: 172 [tied] (3 entries) Wolfram Language User
rank: 172 [tied] (3 entries) X86-64 Assembly User
rank: 172 [tied] (3 entries) Xojo User
rank: 207 [tied] (2 entries) Agena User
rank: 207 [tied] (2 entries) Alice ML User
rank: 207 [tied] (2 entries) AmigaE User
rank: 207 [tied] (2 entries) AspectJ User
rank: 207 [tied] (2 entries) BASIC256 User
rank: 207 [tied] (2 entries) BaCon User
rank: 207 [tied] (2 entries) Basic09 User
rank: 207 [tied] (2 entries) Bracmat User
rank: 207 [tied] (2 entries) Burlesque User
rank: 207 [tied] (2 entries) C++/CLI User
rank: 207 [tied] (2 entries) CHR User
rank: 207 [tied] (2 entries) CLIPS User
rank: 207 [tied] (2 entries) Caché ObjectScript User
rank: 207 [tied] (2 entries) Casio BASIC User
rank: 207 [tied] (2 entries) Chef User
rank: 207 [tied] (2 entries) Coq User
rank: 207 [tied] (2 entries) Crystal User
rank: 207 [tied] (2 entries) DWScript User
rank: 207 [tied] (2 entries) E User
rank: 207 [tied] (2 entries) ELM User
rank: 207 [tied] (2 entries) Elena User
rank: 207 [tied] (2 entries) Fancy User
rank: 207 [tied] (2 entries) Fish User
rank: 207 [tied] (2 entries) Friendly interactive shell User
rank: 207 [tied] (2 entries) GFA Basic User
rank: 207 [tied] (2 entries) Gambas User
rank: 207 [tied] (2 entries) Gema User
rank: 207 [tied] (2 entries) Glee User
rank: 207 [tied] (2 entries) Harbour User
rank: 207 [tied] (2 entries) JavaFX Script User
rank: 207 [tied] (2 entries) Jq User
rank: 207 [tied] (2 entries) Limbo User
rank: 207 [tied] (2 entries) LiveCode User
rank: 207 [tied] (2 entries) Logtalk User
rank: 207 [tied] (2 entries) Lush User
rank: 207 [tied] (2 entries) MIRC Scripting Language User
rank: 207 [tied] (2 entries) MK-61/52 User
rank: 207 [tied] (2 entries) Metafont User
rank: 207 [tied] (2 entries) Neko User
rank: 207 [tied] (2 entries) NetLogo User
rank: 207 [tied] (2 entries) Openscad User
rank: 207 [tied] (2 entries) Pentium Assembly User
rank: 207 [tied] (2 entries) Picat User
rank: 207 [tied] (2 entries) Piet User
rank: 207 [tied] (2 entries) Plain English User
rank: 207 [tied] (2 entries) Processing Python mode User
rank: 207 [tied] (2 entries) Quackery User
rank: 207 [tied] (2 entries) RLaB User
rank: 207 [tied] (2 entries) RPGIV User
rank: 207 [tied] (2 entries) RPL User
rank: 207 [tied] (2 entries) Refal User
rank: 207 [tied] (2 entries) S-lang User
rank: 207 [tied] (2 entries) SETL User
rank: 207 [tied] (2 entries) SNUSP User
rank: 207 [tied] (2 entries) SPSS User
rank: 207 [tied] (2 entries) Sage User
rank: 207 [tied] (2 entries) Seed7 User
rank: 207 [tied] (2 entries) Simula User
rank: 207 [tied] (2 entries) Stata User
rank: 207 [tied] (2 entries) SystemVerilog User
rank: 207 [tied] (2 entries) TXR User
rank: 207 [tied] (2 entries) UserRPL User
rank: 207 [tied] (2 entries) Whitespace User
rank: 207 [tied] (2 entries) XBase User
rank: 207 [tied] (2 entries) XUL User
rank: 207 [tied] (2 entries) Yorick User
rank: 207 [tied] (2 entries) Zig User
rank: 274 [tied] (1 entry) .QL User
rank: 274 [tied] (1 entry) 4D User
rank: 274 [tied] (1 entry) 4DOS Batch User
rank: 274 [tied] (1 entry) 8051 Assembly User
rank: 274 [tied] (1 entry) A+ User
rank: 274 [tied] (1 entry) AARCH64 Assembly User
rank: 274 [tied] (1 entry) ACL2 User
rank: 274 [tied] (1 entry) AMPL User
rank: 274 [tied] (1 entry) ANT User
rank: 274 [tied] (1 entry) Agda User
rank: 274 [tied] (1 entry) AmbientTalk User
rank: 274 [tied] (1 entry) AngelScript User
rank: 274 [tied] (1 entry) Application Master User
rank: 274 [tied] (1 entry) Arc User
rank: 274 [tied] (1 entry) Arturo User
rank: 274 [tied] (1 entry) Astro User
rank: 274 [tied] (1 entry) B User
rank: 274 [tied] (1 entry) B4J User
rank: 274 [tied] (1 entry) Beeswax User
rank: 274 [tied] (1 entry) Biferno User
rank: 274 [tied] (1 entry) Blast User
rank: 274 [tied] (1 entry) BlitzMax User
rank: 274 [tied] (1 entry) Brace User
rank: 274 [tied] (1 entry) Brat User
rank: 274 [tied] (1 entry) Brlcad User
rank: 274 [tied] (1 entry) C0H User
rank: 274 [tied] (1 entry) CB80 User
rank: 274 [tied] (1 entry) COMAL User
rank: 274 [tied] (1 entry) Caml User
rank: 274 [tied] (1 entry) Cat User
rank: 274 [tied] (1 entry) Chapel User
rank: 274 [tied] (1 entry) Cilk++ User
rank: 274 [tied] (1 entry) Clay User
rank: 274 [tied] (1 entry) Comefrom0x10 User
rank: 274 [tied] (1 entry) Curry User
rank: 274 [tied] (1 entry) DIBOL-11 User
rank: 274 [tied] (1 entry) DIV Games Studio User
rank: 274 [tied] (1 entry) DM User
rank: 274 [tied] (1 entry) DUP User
rank: 274 [tied] (1 entry) Dafny User
rank: 274 [tied] (1 entry) Dao User
rank: 274 [tied] (1 entry) Dylan.NET User
rank: 274 [tied] (1 entry) Déjà Vu User
rank: 274 [tied] (1 entry) ECL User
rank: 274 [tied] (1 entry) EDSAC order code User
rank: 274 [tied] (1 entry) EGL User
rank: 274 [tied] (1 entry) EchoLisp User
rank: 274 [tied] (1 entry) Es User
rank: 274 [tied] (1 entry) FBSL User
rank: 274 [tied] (1 entry) FP User
rank: 274 [tied] (1 entry) FUZE BASIC User
rank: 274 [tied] (1 entry) Felix User
rank: 274 [tied] (1 entry) Fermat User
rank: 274 [tied] (1 entry) Fexl User
rank: 274 [tied] (1 entry) Frege User
rank: 274 [tied] (1 entry) Furor User
rank: 274 [tied] (1 entry) Futhark User
rank: 274 [tied] (1 entry) FutureBasic User
rank: 274 [tied] (1 entry) Fôrmulæ User
rank: 274 [tied] (1 entry) GLSL User
rank: 274 [tied] (1 entry) GUISS User
rank: 274 [tied] (1 entry) Genie User
rank: 274 [tied] (1 entry) Global Script User
rank: 274 [tied] (1 entry) Gosu User
rank: 274 [tied] (1 entry) HPPPL User
rank: 274 [tied] (1 entry) Hack User
rank: 274 [tied] (1 entry) Hexiscript User
rank: 274 [tied] (1 entry) HolyC User
rank: 274 [tied] (1 entry) Hope User
rank: 274 [tied] (1 entry) Huginn User
rank: 274 [tied] (1 entry) I User
rank: 274 [tied] (1 entry) Inform 6 User
rank: 274 [tied] (1 entry) Informix 4GL User
rank: 274 [tied] (1 entry) Ioke User
rank: 274 [tied] (1 entry) JOVIAL User
rank: 274 [tied] (1 entry) JoCaml User
rank: 274 [tied] (1 entry) Jsish User
rank: 274 [tied] (1 entry) KL1 User
rank: 274 [tied] (1 entry) Kabap User
rank: 274 [tied] (1 entry) Kamailio Script User
rank: 274 [tied] (1 entry) KeyList Databasing User
rank: 274 [tied] (1 entry) Kite User
rank: 274 [tied] (1 entry) Klong User
rank: 274 [tied] (1 entry) KonsolScript User
rank: 274 [tied] (1 entry) L.in.oleum User
rank: 274 [tied] (1 entry) LC3 Assembly User
rank: 274 [tied] (1 entry) LIL User
rank: 274 [tied] (1 entry) LLVM User
rank: 274 [tied] (1 entry) LOLCODE User
rank: 274 [tied] (1 entry) LSL User
rank: 274 [tied] (1 entry) Lambda Prolog User
rank: 274 [tied] (1 entry) Lang5 User
rank: 274 [tied] (1 entry) Lhogho User
rank: 274 [tied] (1 entry) LibreOffice Basic User
rank: 274 [tied] (1 entry) Lilypond User
rank: 274 [tied] (1 entry) LiveScript User
rank: 274 [tied] (1 entry) Lotus 123 Macro Scripting User
rank: 274 [tied] (1 entry) Lucid User
rank: 274 [tied] (1 entry) M2000 Interpreter User
rank: 274 [tied] (1 entry) MACRO-11 User
rank: 274 [tied] (1 entry) MANOOL User
rank: 274 [tied] (1 entry) MAPPER User
rank: 274 [tied] (1 entry) MBS User
rank: 274 [tied] (1 entry) MDL User
rank: 274 [tied] (1 entry) ME10 macro User
rank: 274 [tied] (1 entry) MINIL User
rank: 274 [tied] (1 entry) ML User
rank: 274 [tied] (1 entry) ML/I User
rank: 274 [tied] (1 entry) MLite User
rank: 274 [tied] (1 entry) MOO User
rank: 274 [tied] (1 entry) MUF User
rank: 274 [tied] (1 entry) Malbolge User
rank: 274 [tied] (1 entry) Mathcad User
rank: 274 [tied] (1 entry) Metapost User
rank: 274 [tied] (1 entry) Microsoft Small Basic User
rank: 274 [tied] (1 entry) MiniScript User
rank: 274 [tied] (1 entry) MiniZinc User
rank: 274 [tied] (1 entry) NASL User
rank: 274 [tied] (1 entry) Nanoquery User
rank: 274 [tied] (1 entry) Neat User
rank: 274 [tied] (1 entry) Nemerle User
rank: 274 [tied] (1 entry) Never User
rank: 274 [tied] (1 entry) Niue User
rank: 274 [tied] (1 entry) OOCalc User
rank: 274 [tied] (1 entry) Objeck User
rank: 274 [tied] (1 entry) Ol User
rank: 274 [tied] (1 entry) OpenC++ User
rank: 274 [tied] (1 entry) OpenEdge/Progress User
rank: 274 [tied] (1 entry) Order User
rank: 274 [tied] (1 entry) PHL User
rank: 274 [tied] (1 entry) PL/M User
rank: 274 [tied] (1 entry) PLUS User
rank: 274 [tied] (1 entry) PLZ/SYS User
rank: 274 [tied] (1 entry) PPL User
rank: 274 [tied] (1 entry) Peloton User
rank: 274 [tied] (1 entry) PeopleCode User
rank: 274 [tied] (1 entry) Perl5i User
rank: 274 [tied] (1 entry) Phix User
rank: 274 [tied] (1 entry) Pop11 User
rank: 274 [tied] (1 entry) Powerbuilder User
rank: 274 [tied] (1 entry) Pure Data User
rank: 274 [tied] (1 entry) Pyret User
rank: 274 [tied] (1 entry) Quite BASIC User
rank: 274 [tied] (1 entry) Ratfor User
rank: 274 [tied] (1 entry) Reason User
rank: 274 [tied] (1 entry) Relation User
rank: 274 [tied] (1 entry) Retro User
rank: 274 [tied] (1 entry) Risc-V User
rank: 274 [tied] (1 entry) Robotic User
rank: 274 [tied] (1 entry) SASL User
rank: 274 [tied] (1 entry) SIMPOL User
rank: 274 [tied] (1 entry) SQL PL User
rank: 274 [tied] (1 entry) Salmon User
rank: 274 [tied] (1 entry) SenseTalk User
rank: 274 [tied] (1 entry) Set lang User
rank: 274 [tied] (1 entry) Shale User
rank: 274 [tied] (1 entry) Sidef User
rank: 274 [tied] (1 entry) Sinclair ZX81 BASIC User
rank: 274 [tied] (1 entry) SkookumScript User
rank: 274 [tied] (1 entry) Slate User
rank: 274 [tied] (1 entry) Smart BASIC User
rank: 274 [tied] (1 entry) Sparkling User
rank: 274 [tied] (1 entry) Spin User
rank: 274 [tied] (1 entry) Suneido User
rank: 274 [tied] (1 entry) SuperTalk User
rank: 274 [tied] (1 entry) Superbase BASIC User
rank: 274 [tied] (1 entry) TAL User
rank: 274 [tied] (1 entry) TMG User
rank: 274 [tied] (1 entry) TPP User
rank: 274 [tied] (1 entry) TUSCRIPT User
rank: 274 [tied] (1 entry) Tailspin User
rank: 274 [tied] (1 entry) TechBASIC User
rank: 274 [tied] (1 entry) Thistle User
rank: 274 [tied] (1 entry) Thyrd User
rank: 274 [tied] (1 entry) Tiny BASIC User
rank: 274 [tied] (1 entry) Toka User
rank: 274 [tied] (1 entry) Trith User
rank: 274 [tied] (1 entry) True BASIC User
rank: 274 [tied] (1 entry) Uniface User
rank: 274 [tied] (1 entry) Unlambda User
rank: 274 [tied] (1 entry) Ursa User
rank: 274 [tied] (1 entry) Ursala User
rank: 274 [tied] (1 entry) V User
rank: 274 [tied] (1 entry) Vedit macro language User
rank: 274 [tied] (1 entry) Viua VM assembly User
rank: 274 [tied] (1 entry) WDTE User
rank: 274 [tied] (1 entry) WML User
rank: 274 [tied] (1 entry) Wart User
rank: 274 [tied] (1 entry) WebAssembly User
rank: 274 [tied] (1 entry) Whenever User
rank: 274 [tied] (1 entry) Wisp User
rank: 274 [tied] (1 entry) XLISP User
rank: 274 [tied] (1 entry) XPL0 User
rank: 274 [tied] (1 entry) XProc User
rank: 274 [tied] (1 entry) XTalk User
rank: 274 [tied] (1 entry) Yacas User
rank: 274 [tied] (1 entry) ZED User
rank: 274 [tied] (1 entry) ZPL User
rank: 274 [tied] (1 entry) Zkl User
rank: 274 [tied] (1 entry) Zoea User
rank: 274 [tied] (1 entry) µC++ User
 
☼ end─of─list. ☼
</pre>
 
{{out|output|text=&nbsp; when sorted (ranked) by the computer programming language:}}
<pre style="height:165ex">
═════════════════════════timestamp: 7 Apr 2021 6:44pm═════════════════════════
 
1,094 records read from file: RC_USER.LAN
7,641 records read from file: RC_USER.CAT
474 (total) number of languages detected in the category file
835 " " " " " " " language "
6,057 (total) number of entries (users of lanugages) detected
 
rank: 274 [tied] (1 entry) .QL User
rank: 153 [tied] (4 entries) 360 Assembly User
rank: 274 [tied] (1 entry) 4D User
rank: 274 [tied] (1 entry) 4DOS Batch User
rank: 51 [tied] (24 entries) 6502 Assembly User
rank: 172 [tied] (3 entries) 6800 Assembly User
rank: 104 [tied] (8 entries) 68000 Assembly User
rank: 83 [tied] (12 entries) 80386 Assembly User
rank: 274 [tied] (1 entry) 8051 Assembly User
rank: 133 [tied] (5 entries) 8080 Assembly User
rank: 57 (21 entries) 8086 Assembly User
rank: 274 [tied] (1 entry) A+ User
rank: 274 [tied] (1 entry) AARCH64 Assembly User
rank: 133 [tied] (5 entries) ABAP User
rank: 274 [tied] (1 entry) ACL2 User
rank: 74 [tied] (15 entries) ActionScript User
rank: 28 [tied] (40 entries) ADA User
rank: 274 [tied] (1 entry) Agda User
rank: 207 [tied] (2 entries) Agena User
rank: 133 [tied] (5 entries) ALGOL 60 User
rank: 109 [tied] (7 entries) ALGOL 68 User
rank: 172 [tied] (3 entries) ALGOL User
rank: 207 [tied] (2 entries) Alice ML User
rank: 274 [tied] (1 entry) AmbientTalk User
rank: 207 [tied] (2 entries) AmigaE User
rank: 274 [tied] (1 entry) AMPL User
rank: 274 [tied] (1 entry) AngelScript User
rank: 274 [tied] (1 entry) ANT User
rank: 67 [tied] (17 entries) Apex User
rank: 35 [tied] (37 entries) APL User
rank: 74 [tied] (15 entries) AppleScript User
rank: 121 [tied] (6 entries) Applesoft BASIC User
rank: 274 [tied] (1 entry) Application Master User
rank: 274 [tied] (1 entry) Arc User
rank: 74 [tied] (15 entries) ARM Assembly User
rank: 274 [tied] (1 entry) Arturo User
rank: 109 [tied] (7 entries) ASP User
rank: 172 [tied] (3 entries) ASP.Net User
rank: 207 [tied] (2 entries) AspectJ User
rank: 25 [tied] (47 entries) Assembly User
rank: 274 [tied] (1 entry) Astro User
rank: 50 (25 entries) AutoHotkey User
rank: 96 [tied] (9 entries) AutoIt User
rank: 19 (69 entries) AWK User
rank: 274 [tied] (1 entry) B User
rank: 274 [tied] (1 entry) B4J User
rank: 207 [tied] (2 entries) BaCon User
rank: 11 [tied] (130 entries) BASIC User
rank: 207 [tied] (2 entries) Basic09 User
rank: 207 [tied] (2 entries) BASIC256 User
rank: 23 [tied] (50 entries) Batch File User
rank: 96 [tied] (9 entries) BBC BASIC User
rank: 121 [tied] (6 entries) Bc User
rank: 153 [tied] (4 entries) BCPL User
rank: 274 [tied] (1 entry) Beeswax User
rank: 80 [tied] (13 entries) Befunge User
rank: 274 [tied] (1 entry) Biferno User
rank: 274 [tied] (1 entry) Blast User
rank: 274 [tied] (1 entry) BlitzMax User
rank: 274 [tied] (1 entry) Brace User
rank: 207 [tied] (2 entries) Bracmat User
rank: 40 (34 entries) Brainf*** User
rank: 274 [tied] (1 entry) Brat User
rank: 274 [tied] (1 entry) Brlcad User
rank: 207 [tied] (2 entries) Burlesque User
rank: 10 (132 entries) C Sharp User
rank: 153 [tied] (4 entries) C Shell User
rank: 1 (424 entries) C User
rank: 3 (302 entries) C++ User
rank: 207 [tied] (2 entries) C++/CLI User
rank: 274 [tied] (1 entry) C0H User
rank: 207 [tied] (2 entries) Caché ObjectScript User
rank: 274 [tied] (1 entry) Caml User
rank: 207 [tied] (2 entries) Casio BASIC User
rank: 274 [tied] (1 entry) Cat User
rank: 274 [tied] (1 entry) CB80 User
rank: 274 [tied] (1 entry) Chapel User
rank: 207 [tied] (2 entries) Chef User
rank: 207 [tied] (2 entries) CHR User
rank: 274 [tied] (1 entry) Cilk++ User
rank: 274 [tied] (1 entry) Clay User
rank: 133 [tied] (5 entries) Clipper User
rank: 207 [tied] (2 entries) CLIPS User
rank: 41 [tied] (32 entries) Clojure User
rank: 133 [tied] (5 entries) CMake User
rank: 33 [tied] (38 entries) COBOL User
rank: 80 [tied] (13 entries) CoffeeScript User
rank: 121 [tied] (6 entries) ColdFusion User
rank: 274 [tied] (1 entry) COMAL User
rank: 274 [tied] (1 entry) Comefrom0x10 User
rank: 121 [tied] (6 entries) Commodore BASIC User
rank: 21 (62 entries) Common Lisp User
rank: 207 [tied] (2 entries) Coq User
rank: 207 [tied] (2 entries) Crystal User
rank: 274 [tied] (1 entry) Curry User
rank: 71 [tied] (16 entries) D User
rank: 274 [tied] (1 entry) Dafny User
rank: 274 [tied] (1 entry) Dao User
rank: 121 [tied] (6 entries) Dart User
rank: 91 [tied] (10 entries) Dc User
rank: 109 [tied] (7 entries) DCL User
rank: 28 [tied] (40 entries) Delphi User
rank: 274 [tied] (1 entry) DIBOL-11 User
rank: 274 [tied] (1 entry) DIV Games Studio User
rank: 274 [tied] (1 entry) DM User
rank: 274 [tied] (1 entry) DUP User
rank: 207 [tied] (2 entries) DWScript User
rank: 172 [tied] (3 entries) Dylan User
rank: 274 [tied] (1 entry) Dylan.NET User
rank: 274 [tied] (1 entry) Déjà Vu User
rank: 207 [tied] (2 entries) E User
rank: 274 [tied] (1 entry) EchoLisp User
rank: 274 [tied] (1 entry) ECL User
rank: 274 [tied] (1 entry) EDSAC order code User
rank: 172 [tied] (3 entries) Egison User
rank: 274 [tied] (1 entry) EGL User
rank: 86 [tied] (11 entries) Eiffel User
rank: 207 [tied] (2 entries) Elena User
rank: 86 [tied] (11 entries) Elixir User
rank: 207 [tied] (2 entries) ELM User
rank: 47 [tied] (26 entries) Emacs Lisp User
rank: 28 [tied] (40 entries) Erlang User
rank: 274 [tied] (1 entry) Es User
rank: 83 [tied] (12 entries) Euphoria User
rank: 58 (20 entries) F Sharp User
rank: 63 [tied] (18 entries) Factor User
rank: 172 [tied] (3 entries) Falcon User
rank: 153 [tied] (4 entries) FALSE User
rank: 207 [tied] (2 entries) Fancy User
rank: 172 [tied] (3 entries) Fantom User
rank: 274 [tied] (1 entry) FBSL User
rank: 274 [tied] (1 entry) Felix User
rank: 274 [tied] (1 entry) Fermat User
rank: 274 [tied] (1 entry) Fexl User
rank: 207 [tied] (2 entries) Fish User
rank: 23 [tied] (50 entries) FORTH User
rank: 15 (96 entries) FORTRAN User
rank: 274 [tied] (1 entry) FP User
rank: 172 [tied] (3 entries) Free Pascal User
rank: 133 [tied] (5 entries) FreeBASIC User
rank: 274 [tied] (1 entry) Frege User
rank: 207 [tied] (2 entries) Friendly interactive shell User
rank: 172 [tied] (3 entries) Frink User
rank: 274 [tied] (1 entry) Furor User
rank: 274 [tied] (1 entry) Futhark User
rank: 274 [tied] (1 entry) FutureBasic User
rank: 274 [tied] (1 entry) FUZE BASIC User
rank: 274 [tied] (1 entry) Fôrmulæ User
rank: 207 [tied] (2 entries) Gambas User
rank: 153 [tied] (4 entries) GAP User
rank: 207 [tied] (2 entries) Gema User
rank: 274 [tied] (1 entry) Genie User
rank: 207 [tied] (2 entries) GFA Basic User
rank: 207 [tied] (2 entries) Glee User
rank: 274 [tied] (1 entry) Global Script User
rank: 274 [tied] (1 entry) GLSL User
rank: 133 [tied] (5 entries) GML User
rank: 104 [tied] (8 entries) Gnuplot User
rank: 39 (35 entries) Go User
rank: 153 [tied] (4 entries) GolfScript User
rank: 274 [tied] (1 entry) Gosu User
rank: 86 [tied] (11 entries) Groovy User
rank: 274 [tied] (1 entry) GUISS User
rank: 172 [tied] (3 entries) GW-BASIC User
rank: 274 [tied] (1 entry) Hack User
rank: 207 [tied] (2 entries) Harbour User
rank: 13 (111 entries) Haskell User
rank: 133 [tied] (5 entries) Haxe User
rank: 274 [tied] (1 entry) Hexiscript User
rank: 172 [tied] (3 entries) HLA User
rank: 274 [tied] (1 entry) HolyC User
rank: 274 [tied] (1 entry) Hope User
rank: 274 [tied] (1 entry) HPPPL User
rank: 153 [tied] (4 entries) HQ9+ User
rank: 274 [tied] (1 entry) Huginn User
rank: 121 [tied] (6 entries) HyperTalk User
rank: 274 [tied] (1 entry) I User
rank: 74 [tied] (15 entries) Icon User
rank: 172 [tied] (3 entries) IDL User
rank: 274 [tied] (1 entry) Inform 6 User
rank: 133 [tied] (5 entries) Inform 7 User
rank: 274 [tied] (1 entry) Informix 4GL User
rank: 133 [tied] (5 entries) Integer BASIC User
rank: 121 [tied] (6 entries) Io User
rank: 274 [tied] (1 entry) Ioke User
rank: 35 [tied] (37 entries) J User
rank: 2 (309 entries) JAVA User
rank: 207 [tied] (2 entries) JavaFX Script User
rank: 5 (280 entries) JavaScript User
rank: 96 [tied] (9 entries) JCL User
rank: 274 [tied] (1 entry) JoCaml User
rank: 274 [tied] (1 entry) JOVIAL User
rank: 121 [tied] (6 entries) Joy User
rank: 207 [tied] (2 entries) Jq User
rank: 274 [tied] (1 entry) Jsish User
rank: 71 [tied] (16 entries) Julia User
rank: 133 [tied] (5 entries) K User
rank: 274 [tied] (1 entry) Kabap User
rank: 274 [tied] (1 entry) Kamailio Script User
rank: 274 [tied] (1 entry) KeyList Databasing User
rank: 274 [tied] (1 entry) Kite User
rank: 274 [tied] (1 entry) KL1 User
rank: 274 [tied] (1 entry) Klong User
rank: 274 [tied] (1 entry) KonsolScript User
rank: 133 [tied] (5 entries) Kotlin User
rank: 274 [tied] (1 entry) L.in.oleum User
rank: 104 [tied] (8 entries) LabVIEW User
rank: 274 [tied] (1 entry) Lambda Prolog User
rank: 274 [tied] (1 entry) Lang5 User
rank: 47 [tied] (26 entries) LaTeX User
rank: 274 [tied] (1 entry) LC3 Assembly User
rank: 172 [tied] (3 entries) LFE User
rank: 274 [tied] (1 entry) Lhogho User
rank: 109 [tied] (7 entries) Liberty BASIC User
rank: 274 [tied] (1 entry) LibreOffice Basic User
rank: 274 [tied] (1 entry) LIL User
rank: 274 [tied] (1 entry) Lilypond User
rank: 207 [tied] (2 entries) Limbo User
rank: 27 (45 entries) LISP User
rank: 207 [tied] (2 entries) LiveCode User
rank: 274 [tied] (1 entry) LiveScript User
rank: 274 [tied] (1 entry) LLVM User
rank: 153 [tied] (4 entries) Locomotive Basic User
rank: 63 [tied] (18 entries) Logo User
rank: 207 [tied] (2 entries) Logtalk User
rank: 274 [tied] (1 entry) LOLCODE User
rank: 274 [tied] (1 entry) Lotus 123 Macro Scripting User
rank: 274 [tied] (1 entry) LSL User
rank: 20 (66 entries) LUA User
rank: 274 [tied] (1 entry) Lucid User
rank: 207 [tied] (2 entries) Lush User
rank: 274 [tied] (1 entry) M2000 Interpreter User
rank: 96 [tied] (9 entries) M4 User
rank: 153 [tied] (4 entries) M680x0 User
rank: 274 [tied] (1 entry) MACRO-11 User
rank: 63 [tied] (18 entries) Make User
rank: 274 [tied] (1 entry) Malbolge User
rank: 274 [tied] (1 entry) MANOOL User
rank: 109 [tied] (7 entries) Maple User
rank: 274 [tied] (1 entry) MAPPER User
rank: 274 [tied] (1 entry) Mathcad User
rank: 41 [tied] (32 entries) Mathematica User
rank: 25 [tied] (47 entries) MATLAB User
rank: 78 [tied] (14 entries) Maxima User
rank: 274 [tied] (1 entry) MBS User
rank: 274 [tied] (1 entry) MDL User
rank: 274 [tied] (1 entry) ME10 macro User
rank: 109 [tied] (7 entries) Mercury User
rank: 207 [tied] (2 entries) Metafont User
rank: 274 [tied] (1 entry) Metapost User
rank: 274 [tied] (1 entry) Microsoft Small Basic User
rank: 274 [tied] (1 entry) MINIL User
rank: 274 [tied] (1 entry) MiniScript User
rank: 274 [tied] (1 entry) MiniZinc User
rank: 91 [tied] (10 entries) MIPS Assembly User
rank: 207 [tied] (2 entries) MIRC Scripting Language User
rank: 207 [tied] (2 entries) MK-61/52 User
rank: 274 [tied] (1 entry) ML User
rank: 274 [tied] (1 entry) ML/I User
rank: 274 [tied] (1 entry) MLite User
rank: 172 [tied] (3 entries) MMIX User
rank: 71 [tied] (16 entries) Modula-2 User
rank: 121 [tied] (6 entries) Modula-3 User
rank: 274 [tied] (1 entry) MOO User
rank: 274 [tied] (1 entry) MUF User
rank: 109 [tied] (7 entries) MUMPS User
rank: 51 [tied] (24 entries) MySQL User
rank: 172 [tied] (3 entries) N/t/roff User
rank: 274 [tied] (1 entry) Nanoquery User
rank: 274 [tied] (1 entry) NASL User
rank: 274 [tied] (1 entry) Neat User
rank: 207 [tied] (2 entries) Neko User
rank: 274 [tied] (1 entry) Nemerle User
rank: 207 [tied] (2 entries) NetLogo User
rank: 172 [tied] (3 entries) NetRexx User
rank: 274 [tied] (1 entry) Never User
rank: 133 [tied] (5 entries) NewLISP User
rank: 172 [tied] (3 entries) Nial User
rank: 80 [tied] (13 entries) Nim User
rank: 274 [tied] (1 entry) Niue User
rank: 133 [tied] (5 entries) NSIS User
rank: 172 [tied] (3 entries) Oberon-2 User
rank: 274 [tied] (1 entry) Objeck User
rank: 172 [tied] (3 entries) Object Pascal User
rank: 37 [tied] (36 entries) Objective-C User
rank: 44 [tied] (29 entries) OCaml User
rank: 172 [tied] (3 entries) Occam User
rank: 86 [tied] (11 entries) Octave User
rank: 274 [tied] (1 entry) Ol User
rank: 274 [tied] (1 entry) OOCalc User
rank: 153 [tied] (4 entries) OoRexx User
rank: 274 [tied] (1 entry) OpenC++ User
rank: 274 [tied] (1 entry) OpenEdge/Progress User
rank: 207 [tied] (2 entries) Openscad User
rank: 274 [tied] (1 entry) Order User
rank: 96 [tied] (9 entries) Oz User
rank: 86 [tied] (11 entries) PARI/GP User
rank: 11 [tied] (130 entries) Pascal User
rank: 109 [tied] (7 entries) PDP-11 Assembly User
rank: 274 [tied] (1 entry) Peloton User
rank: 207 [tied] (2 entries) Pentium Assembly User
rank: 274 [tied] (1 entry) PeopleCode User
rank: 7 (181 entries) Perl User
rank: 274 [tied] (1 entry) Perl5i User
rank: 274 [tied] (1 entry) Phix User
rank: 274 [tied] (1 entry) PHL User
rank: 6 (183 entries) PHP User
rank: 207 [tied] (2 entries) Picat User
rank: 104 [tied] (8 entries) PicoLisp User
rank: 207 [tied] (2 entries) Piet User
rank: 121 [tied] (6 entries) Pike User
rank: 153 [tied] (4 entries) PIR User
rank: 67 [tied] (17 entries) PL/I User
rank: 274 [tied] (1 entry) PL/M User
rank: 172 [tied] (3 entries) PL/pgSQL User
rank: 91 [tied] (10 entries) PL/SQL User
rank: 207 [tied] (2 entries) Plain English User
rank: 153 [tied] (4 entries) PlainTeX User
rank: 274 [tied] (1 entry) PLUS User
rank: 274 [tied] (1 entry) PLZ/SYS User
rank: 274 [tied] (1 entry) Pop11 User
rank: 46 (27 entries) PostScript User
rank: 104 [tied] (8 entries) POV-Ray User
rank: 109 [tied] (7 entries) PowerBASIC User
rank: 274 [tied] (1 entry) Powerbuilder User
rank: 153 [tied] (4 entries) PowerPC Assembly User
rank: 63 [tied] (18 entries) PowerShell User
rank: 274 [tied] (1 entry) PPL User
rank: 207 [tied] (2 entries) Processing Python mode User
rank: 96 [tied] (9 entries) Processing User
rank: 17 [tied] (70 entries) Prolog User
rank: 274 [tied] (1 entry) Pure Data User
rank: 172 [tied] (3 entries) Pure User
rank: 109 [tied] (7 entries) PureBasic User
rank: 274 [tied] (1 entry) Pyret User
rank: 4 (299 entries) Python User
rank: 133 [tied] (5 entries) Q User
rank: 153 [tied] (4 entries) QBASIC User
rank: 207 [tied] (2 entries) Quackery User
rank: 274 [tied] (1 entry) Quite BASIC User
rank: 32 (39 entries) R User
rank: 53 [tied] (23 entries) Racket User
rank: 43 (30 entries) Raku User
rank: 274 [tied] (1 entry) Ratfor User
rank: 133 [tied] (5 entries) REALbasic User
rank: 274 [tied] (1 entry) Reason User
rank: 96 [tied] (9 entries) REBOL User
rank: 207 [tied] (2 entries) Refal User
rank: 274 [tied] (1 entry) Relation User
rank: 274 [tied] (1 entry) Retro User
rank: 44 [tied] (29 entries) REXX User
rank: 274 [tied] (1 entry) Risc-V User
rank: 207 [tied] (2 entries) RLaB User
rank: 274 [tied] (1 entry) Robotic User
rank: 172 [tied] (3 entries) RPG User
rank: 207 [tied] (2 entries) RPGIV User
rank: 207 [tied] (2 entries) RPL User
rank: 14 (102 entries) Ruby User
rank: 153 [tied] (4 entries) Run BASIC User
rank: 59 [tied] (19 entries) Rust User
rank: 207 [tied] (2 entries) S-lang User
rank: 207 [tied] (2 entries) Sage User
rank: 274 [tied] (1 entry) Salmon User
rank: 91 [tied] (10 entries) SAS User
rank: 274 [tied] (1 entry) SASL User
rank: 172 [tied] (3 entries) Sather User
rank: 53 [tied] (23 entries) Scala User
rank: 17 [tied] (70 entries) Scheme User
rank: 153 [tied] (4 entries) Scilab User
rank: 109 [tied] (7 entries) Scratch User
rank: 47 [tied] (26 entries) Sed User
rank: 207 [tied] (2 entries) Seed7 User
rank: 121 [tied] (6 entries) Self User
rank: 274 [tied] (1 entry) SenseTalk User
rank: 172 [tied] (3 entries) SequenceL User
rank: 274 [tied] (1 entry) Set lang User
rank: 207 [tied] (2 entries) SETL User
rank: 274 [tied] (1 entry) Shale User
rank: 172 [tied] (3 entries) Shen User
rank: 274 [tied] (1 entry) Sidef User
rank: 274 [tied] (1 entry) SIMPOL User
rank: 207 [tied] (2 entries) Simula User
rank: 274 [tied] (1 entry) Sinclair ZX81 BASIC User
rank: 274 [tied] (1 entry) SkookumScript User
rank: 274 [tied] (1 entry) Slate User
rank: 37 [tied] (36 entries) SmallTalk User
rank: 274 [tied] (1 entry) Smart BASIC User
rank: 172 [tied] (3 entries) Snobol User
rank: 78 [tied] (14 entries) SNOBOL4 User
rank: 207 [tied] (2 entries) SNUSP User
rank: 172 [tied] (3 entries) SPARC Assembly User
rank: 172 [tied] (3 entries) SPARK User
rank: 274 [tied] (1 entry) Sparkling User
rank: 274 [tied] (1 entry) Spin User
rank: 207 [tied] (2 entries) SPSS User
rank: 274 [tied] (1 entry) SQL PL User
rank: 8 (158 entries) SQL User
rank: 67 [tied] (17 entries) Standard ML User
rank: 207 [tied] (2 entries) Stata User
rank: 274 [tied] (1 entry) Suneido User
rank: 274 [tied] (1 entry) Superbase BASIC User
rank: 274 [tied] (1 entry) SuperTalk User
rank: 67 [tied] (17 entries) Swift User
rank: 207 [tied] (2 entries) SystemVerilog User
rank: 274 [tied] (1 entry) Tailspin User
rank: 274 [tied] (1 entry) TAL User
rank: 28 [tied] (40 entries) TCL User
rank: 274 [tied] (1 entry) TechBASIC User
rank: 172 [tied] (3 entries) Teco User
rank: 274 [tied] (1 entry) Thistle User
rank: 274 [tied] (1 entry) Thyrd User
rank: 59 [tied] (19 entries) TI-83 BASIC User
rank: 133 [tied] (5 entries) TI-89 BASIC User
rank: 274 [tied] (1 entry) Tiny BASIC User
rank: 274 [tied] (1 entry) TMG User
rank: 274 [tied] (1 entry) Toka User
rank: 153 [tied] (4 entries) TorqueScript User
rank: 274 [tied] (1 entry) TPP User
rank: 172 [tied] (3 entries) Transact-SQL User
rank: 274 [tied] (1 entry) Trith User
rank: 274 [tied] (1 entry) True BASIC User
rank: 274 [tied] (1 entry) TUSCRIPT User
rank: 207 [tied] (2 entries) TXR User
rank: 96 [tied] (9 entries) TypeScript User
rank: 83 [tied] (12 entries) Unicon User
rank: 274 [tied] (1 entry) Uniface User
rank: 9 (151 entries) UNIX Shell User
rank: 91 [tied] (10 entries) UnixPipes User
rank: 274 [tied] (1 entry) Unlambda User
rank: 274 [tied] (1 entry) Ursa User
rank: 274 [tied] (1 entry) Ursala User
rank: 207 [tied] (2 entries) UserRPL User
rank: 274 [tied] (1 entry) V User
rank: 153 [tied] (4 entries) Vala User
rank: 172 [tied] (3 entries) VAX Assembly User
rank: 133 [tied] (5 entries) VB6 User
rank: 59 [tied] (19 entries) VBA User
rank: 53 [tied] (23 entries) VBScript User
rank: 274 [tied] (1 entry) Vedit macro language User
rank: 133 [tied] (5 entries) Verilog User
rank: 109 [tied] (7 entries) VHDL User
rank: 121 [tied] (6 entries) Vim Script User
rank: 33 [tied] (38 entries) Visual Basic .NET User
rank: 16 (73 entries) Visual Basic User
rank: 274 [tied] (1 entry) Viua VM assembly User
rank: 274 [tied] (1 entry) Wart User
rank: 274 [tied] (1 entry) WDTE User
rank: 274 [tied] (1 entry) WebAssembly User
rank: 274 [tied] (1 entry) Whenever User
rank: 207 [tied] (2 entries) Whitespace User
rank: 274 [tied] (1 entry) Wisp User
rank: 274 [tied] (1 entry) WML User
rank: 172 [tied] (3 entries) Wolfram Language User
rank: 22 (51 entries) X86 Assembly User
rank: 172 [tied] (3 entries) X86-64 Assembly User
rank: 207 [tied] (2 entries) XBase User
rank: 274 [tied] (1 entry) XLISP User
rank: 172 [tied] (3 entries) Xojo User
rank: 274 [tied] (1 entry) XPL0 User
rank: 274 [tied] (1 entry) XProc User
rank: 133 [tied] (5 entries) XQuery User
rank: 53 [tied] (23 entries) XSLT User
rank: 274 [tied] (1 entry) XTalk User
rank: 207 [tied] (2 entries) XUL User
rank: 274 [tied] (1 entry) Yacas User
rank: 207 [tied] (2 entries) Yorick User
rank: 59 [tied] (19 entries) Z80 Assembly User
rank: 274 [tied] (1 entry) ZED User
rank: 207 [tied] (2 entries) Zig User
rank: 274 [tied] (1 entry) Zkl User
rank: 274 [tied] (1 entry) Zoea User
rank: 274 [tied] (1 entry) ZPL User
rank: 153 [tied] (4 entries) ZX Spectrum Basic User
rank: 274 [tied] (1 entry) µC++ User
 
☼ end─of─list. ☼
</pre>
 
=={{header|Stata}}==
 
<langsyntaxhighlight lang="stata">copy "http://rosettacode.org/mw/index.php?title=Special:Categories&limit=5000" categ.html, replace
import delimited categ.html, delim("@") enc("utf-8") clear
keep if ustrpos(v1,"/wiki/Category:") & ustrpos(v1,"_User")
Line 506 ⟶ 1,929:
leftalign
list in f/50
save rc_users, replace</langsyntaxhighlight>
 
'''Output''' (2019-02-18)
Line 573 ⟶ 1,996:
50. | Sed 23 |
+----------------------------+</pre>
 
=={{header|Wren}}==
{{libheader|libcurl}}
{{libheader|Wren-pattern}}
{{libheader|Wren-fmt}}
An embedded program so we can use the libcurl library.
 
We can in fact get all the information needed for this task just by parsing the 'Special:Categories' page. Note however that the HTML for this page contains some invisible Unicode right-to-left and left-to-right characters - a well known security risk but apparently harmless here - which need to be allowed for when extracting the number of users.
<syntaxhighlight lang="wren">/* Rosetta_Code_Rank_languages_by_number_of_users.wren */
 
import "./pattern" for Pattern
import "./fmt" for Fmt
 
var CURLOPT_URL = 10002
var CURLOPT_FOLLOWLOCATION = 52
var CURLOPT_WRITEFUNCTION = 20011
var CURLOPT_WRITEDATA = 10001
 
foreign class Buffer {
construct new() {} // C will allocate buffer of a suitable size
 
foreign value // returns buffer contents as a string
}
 
foreign class Curl {
construct easyInit() {}
 
foreign easySetOpt(opt, param)
 
foreign easyPerform()
 
foreign easyCleanup()
}
 
var curl = Curl.easyInit()
 
var getContent = Fn.new { |url|
var buffer = Buffer.new()
curl.easySetOpt(CURLOPT_URL, url)
curl.easySetOpt(CURLOPT_FOLLOWLOCATION, 1)
curl.easySetOpt(CURLOPT_WRITEFUNCTION, 0) // write function to be supplied by C
curl.easySetOpt(CURLOPT_WRITEDATA, buffer)
curl.easyPerform()
return buffer.value
}
 
var p = Pattern.new(" User\">[+1^<]<//a>\u200f\u200e ([#13/d] member~s)")
var url = "https://rosettacode.org/w/index.php?title=Special:Categories&limit=5000"
var content = getContent.call(url)
var matches = p.findAll(content)
var over100s = []
for (m in matches) {
var numUsers = Num.fromString(m.capsText[1])
if (numUsers >= 100) {
var language = m.capsText[0][0..-6]
over100s.add([language, numUsers])
}
}
over100s.sort { |a, b| a[1] > b[1] }
System.print("Languages with at least 100 users as at 3 February, 2024:")
var rank = 0
var lastScore = 0
var lastRank = 0
for (i in 0...over100s.count) {
var pair = over100s[i]
var eq = " "
rank = i + 1
if (lastScore == pair[1]) {
eq = "="
rank = lastRank
} else {
lastScore = pair[1]
lastRank = rank
}
Fmt.print("$-2d$s $-11s $d", rank, eq, pair[0], pair[1])
}</syntaxhighlight>
<br>
We now embed this script in the following C program, build and run.
<syntaxhighlight lang="c">/* gcc Rosetta_Code_Rank_languages_by_number_of_users.c -o Rosetta_Code_Rank_languages_by_number_of_users -lcurl -lwren -lm */
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <curl/curl.h>
#include "wren.h"
 
struct MemoryStruct {
char *memory;
size_t size;
};
 
/* C <=> Wren interface functions */
 
static size_t WriteMemoryCallback(void *contents, size_t size, size_t nmemb, void *userp) {
size_t realsize = size * nmemb;
struct MemoryStruct *mem = (struct MemoryStruct *)userp;
char *ptr = realloc(mem->memory, mem->size + realsize + 1);
if(!ptr) {
/* out of memory! */
printf("not enough memory (realloc returned NULL)\n");
return 0;
}
 
mem->memory = ptr;
memcpy(&(mem->memory[mem->size]), contents, realsize);
mem->size += realsize;
mem->memory[mem->size] = 0;
return realsize;
}
 
void C_bufferAllocate(WrenVM* vm) {
struct MemoryStruct *ms = (struct MemoryStruct *)wrenSetSlotNewForeign(vm, 0, 0, sizeof(struct MemoryStruct));
ms->memory = malloc(1);
ms->size = 0;
}
 
void C_bufferFinalize(void* data) {
struct MemoryStruct *ms = (struct MemoryStruct *)data;
free(ms->memory);
}
 
void C_curlAllocate(WrenVM* vm) {
CURL** pcurl = (CURL**)wrenSetSlotNewForeign(vm, 0, 0, sizeof(CURL*));
*pcurl = curl_easy_init();
}
 
void C_value(WrenVM* vm) {
struct MemoryStruct *ms = (struct MemoryStruct *)wrenGetSlotForeign(vm, 0);
wrenSetSlotString(vm, 0, ms->memory);
}
 
void C_easyPerform(WrenVM* vm) {
CURL* curl = *(CURL**)wrenGetSlotForeign(vm, 0);
curl_easy_perform(curl);
}
 
void C_easyCleanup(WrenVM* vm) {
CURL* curl = *(CURL**)wrenGetSlotForeign(vm, 0);
curl_easy_cleanup(curl);
}
 
void C_easySetOpt(WrenVM* vm) {
CURL* curl = *(CURL**)wrenGetSlotForeign(vm, 0);
CURLoption opt = (CURLoption)wrenGetSlotDouble(vm, 1);
if (opt < 10000) {
long lparam = (long)wrenGetSlotDouble(vm, 2);
curl_easy_setopt(curl, opt, lparam);
} else if (opt < 20000) {
if (opt == CURLOPT_WRITEDATA) {
struct MemoryStruct *ms = (struct MemoryStruct *)wrenGetSlotForeign(vm, 2);
curl_easy_setopt(curl, opt, (void *)ms);
} else if (opt == CURLOPT_URL) {
const char *url = wrenGetSlotString(vm, 2);
curl_easy_setopt(curl, opt, url);
}
} else if (opt < 30000) {
if (opt == CURLOPT_WRITEFUNCTION) {
curl_easy_setopt(curl, opt, &WriteMemoryCallback);
}
}
}
 
WrenForeignClassMethods bindForeignClass(WrenVM* vm, const char* module, const char* className) {
WrenForeignClassMethods methods;
methods.allocate = NULL;
methods.finalize = NULL;
if (strcmp(module, "main") == 0) {
if (strcmp(className, "Buffer") == 0) {
methods.allocate = C_bufferAllocate;
methods.finalize = C_bufferFinalize;
} else if (strcmp(className, "Curl") == 0) {
methods.allocate = C_curlAllocate;
}
}
return methods;
}
 
WrenForeignMethodFn bindForeignMethod(
WrenVM* vm,
const char* module,
const char* className,
bool isStatic,
const char* signature) {
if (strcmp(module, "main") == 0) {
if (strcmp(className, "Buffer") == 0) {
if (!isStatic && strcmp(signature, "value") == 0) return C_value;
} else if (strcmp(className, "Curl") == 0) {
if (!isStatic && strcmp(signature, "easySetOpt(_,_)") == 0) return C_easySetOpt;
if (!isStatic && strcmp(signature, "easyPerform()") == 0) return C_easyPerform;
if (!isStatic && strcmp(signature, "easyCleanup()") == 0) return C_easyCleanup;
}
}
return NULL;
}
 
static void writeFn(WrenVM* vm, const char* text) {
printf("%s", text);
}
 
void errorFn(WrenVM* vm, WrenErrorType errorType, const char* module, const int line, const char* msg) {
switch (errorType) {
case WREN_ERROR_COMPILE:
printf("[%s line %d] [Error] %s\n", module, line, msg);
break;
case WREN_ERROR_STACK_TRACE:
printf("[%s line %d] in %s\n", module, line, msg);
break;
case WREN_ERROR_RUNTIME:
printf("[Runtime Error] %s\n", msg);
break;
}
}
 
char *readFile(const char *fileName) {
FILE *f = fopen(fileName, "r");
fseek(f, 0, SEEK_END);
long fsize = ftell(f);
rewind(f);
char *script = malloc(fsize + 1);
fread(script, 1, fsize, f);
fclose(f);
script[fsize] = 0;
return script;
}
 
static void loadModuleComplete(WrenVM* vm, const char* module, WrenLoadModuleResult result) {
if( result.source) free((void*)result.source);
}
 
WrenLoadModuleResult loadModule(WrenVM* vm, const char* name) {
WrenLoadModuleResult result = {0};
if (strcmp(name, "random") != 0 && strcmp(name, "meta") != 0) {
result.onComplete = loadModuleComplete;
char fullName[strlen(name) + 6];
strcpy(fullName, name);
strcat(fullName, ".wren");
result.source = readFile(fullName);
}
return result;
}
 
int main(int argc, char **argv) {
WrenConfiguration config;
wrenInitConfiguration(&config);
config.writeFn = &writeFn;
config.errorFn = &errorFn;
config.bindForeignClassFn = &bindForeignClass;
config.bindForeignMethodFn = &bindForeignMethod;
config.loadModuleFn = &loadModule;
WrenVM* vm = wrenNewVM(&config);
const char* module = "main";
const char* fileName = "Rosetta_Code_Rank_languages_by_number_of_users.wren";
char *script = readFile(fileName);
WrenInterpretResult result = wrenInterpret(vm, module, script);
switch (result) {
case WREN_RESULT_COMPILE_ERROR:
printf("Compile Error!\n");
break;
case WREN_RESULT_RUNTIME_ERROR:
printf("Runtime Error!\n");
break;
case WREN_RESULT_SUCCESS:
break;
}
wrenFreeVM(vm);
free(script);
return 0;
}</syntaxhighlight>
 
{{out}}
<pre>
Languages with at least 100 users as at 3 February, 2024:
1 C 434
2 Java 326
3 Python 323
4 C++ 306
5 JavaScript 287
6 PHP 188
7 Perl 181
8 SQL 166
9 UNIX Shell 146
10 Pascal 128
10= BASIC 128
12 C sharp 124
13 Haskell 107
14 Ruby 101
</pre>
 
=={{header|zkl}}==
Uses libraries cURL and YAJL (yet another json library)
<langsyntaxhighlight lang="zkl">const MIN_USERS=60;
var [const] CURL=Import("zklCurl"), YAJL=Import("zklYAJL")[0];
 
Line 609 ⟶ 2,320:
println("========== ",Time.Date.prettyDay()," ==========");
foreach n,pgnm in ([1..].zip(allLangs))
{ println("#%3d with %4s users: %s".fmt(n,pgnm.xplode())) }</langsyntaxhighlight>
{{out}}
<pre>
PureFox
9,488

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/279071...353350"