Rosetta Code/List authors of task descriptions: Difference between revisions

{{draft task}}In this task, the goal is to compile an authorship list for task descriptions. A pseudocode example (in imperative style) that should accomplish this is as follows:

 

grab page source, discard everything after the first ==section==.

Cache as $previous. Note $author.

compare $previous2 to $previous. If different, record $author to $list.

replace $previous with $previous2

 

The following resources for HTTP interface information for MediaWiki may prove to be useful:

 

=={{header|Go}}==

 

import (

fmt.Printf("%2d: %3d %s\n", j+1, authorNumber.number, authorNumber.author)

}

 

{{out}}

18: 13 Paulo Jorente

18: 13 Waldorf

</pre>

 

=={{header|Nim}}==

{{trans|Go}}

 

let

inc pos

echo ($pos).align(2), " ", ($count).align(3), " ", author

 

{{out}}

properly thrash the rosettacode servers.

{{libheader|Phix/libcurl}}

<span style="color: #000080;font-style:italic;">-- demo\rosetta\List_task_authors.exw</span>

<span style="color: #008080;">without</span> <span style="color: #008080;">js</span> <span style="color: #000080;font-style:italic;">-- (libcurl, file i/o, peek, progress..)</span>

<span style="color: #008080;">constant</span> <span style="color: #000000;">history_user</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">`&lt;span class='history-user'&gt;&lt;a href="`</span>

<span style="color: #008080;">if</span> <span style="color: #7060A8;">get_key</span><span style="color: #0000FF;">()=</span><span style="color: #000000;">#1B</span> <span style="color: #008080;">then</span> <span style="color: #7060A8;">progress</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"escape keyed\n"</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">exit</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>

<span style="color: #7060A8;">progress</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">)</span>

<span style="color: #004080;">integer</span> <span style="color: #000000;">nusers</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">users</span><span style="color: #0000FF;">)</span>

<span style="color: #7060A8;">progress</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"Total: %d tasks by %d authors\n"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">count_tasks</span><span style="color: #0000FF;">())</span>

{{out}}

As of 6th Jan 2020

The pseudocode above is no longer really useful as the page format has changed significantly since this task was written. Rather than checking '''every''' edit to see if it was a change to the task description, we'll just assume the user that created the page is the task author. This isn't 100% accurate; a very few pages got renamed and recreated by someone other than the original author without preserving the history, so they are misreported (15 Puzzle Game for instance,) but is as good as it is likely to get without extensive manual intervention. Subsequent edits to the task description are not credited. As it is, we must still make ''thousands'' of requests and pound the server pretty hard. Checking '''every''' edit would make the task several of orders of magnitude more abusive of the server (and my internet connection.)

 

use URI::Escape;

use JSON::Fast;

my $client = HTTP::UserAgent.new;

 

 

my $tablefile = './RC_Authors.txt';

sub sort-key ($a) { $a.lc.subst(/(\d+)/, ->$/ {0~(65+($0.chars)).chr~$0},:g) }

 

 

{{out|Sample output}}

 

=={{header|Wren}}==

{{libheader|libcurl}}

{{libheader|Wren-pattern}}

An embedded program so we can use libcurl.

 

 

import "./pattern" for Pattern

}

 

}

}

var authors = {}

// check the last or only history page for each task

var content = getContent.call(url)

// the task author should be the final user on that page

var author = matches[-1].capsText[1].replace("_", " ")

var authorNumbers = authors.toList

authorNumbers.sort { |a, b| a.value > b.value }

System.print("Total authors : %(authors.count)")

System.print("Pos Tasks Author")

System.print("==== ===== ======")

var lastNumber = 0

var lastIndex = -1

var j = i

var eq = " "

i = i + 1

}

<br>

We now embed this script in the following C program, build and run.

 

#include <stdio.h>

WrenVM* vm = wrenNewVM(&config);

const char* module = "main";

char *script = readFile(fileName);

WrenInterpretResult result = wrenInterpret(vm, module, script);

free(script);

return 0;

 

{{out}}

<pre>

 

 

Pos Tasks Author

==== ===== ======

1 199 Paddy3118

7 39 NevilleDNZ

20 13 Paulo Jorente

20= 13 Abu

23 12 Ce

23= 12 Kevin Reid

</pre>