Rosetta Code/Tasks without examples: Difference between revisions

 

=={{header|D}}==

import std.net.curl;

import std.range;

auto base = "http://rosettacode.org/wiki/";

tasks.take(3).each!(task => process(base, task));

{{out}}

<pre>There are 100 doors in a row that are all initially closed.

 

=={{header|Go}}==

 

import (

time.Sleep(5 * time.Second) // wait 5 seconds before processing next task

}

 

{{out}}

=={{header|Java}}==

{{trans|Kotlin}}

import java.net.URI;

import java.net.URISyntaxException;

tasks.stream().limit(limit).forEach(task -> process(client, base, task));

}

 

=={{header|Julia}}==

{{trans|Go}}

 

function gettaskdescriptions(numtoprint = 3)

page = "http://rosettacode.org/wiki/Category:Programming_Tasks"

body = String(HTTP.get(page).body)

base = "http://rosettacode.org/wiki/"

for (i, task) in enumerate(tasks)

body = String(HTTP.get(page).body)

m = match(r"using any language you may know.</div>(.+)<div id=\"toc\""s, body)

i >= numtoprint && break

sleep(rand(3:7)) # wait 5 +/- 2 seconds before processing next task

 

gettaskdescriptions()

 

=={{header|Kotlin}}==

import java.net.http.HttpClient

import java.net.http.HttpRequest

}

}

 

=={{header|Nim}}==

{{trans|Go}}

 

let re1 = re("""<li><a href="/wiki/(.*?)"""")

const Base = "http://rosettacode.org/wiki/"

const Limit = 3 # number of tasks to print out.

for i, task in tasks:

var matches: array[2, string]

echo xmlnode.innerText() # Echo the tree as text.

if i == Limit - 1: break

 

{{out}}

=={{header|Perl}}==

Slice and dice the HTML. Output is as for the other examples.

use warnings;

 

print "$title\n$task_at_hand\n\n";

sleep 10; # so you have time to read each task...

 

=={{header|Phix}}==

Output similar to zkl, I assume the first four constants are self-explanatory.

{{libheader|Phix/libcurl}}

 

=={{header|Raku}}==

{{works with|Rakudo|2017.10}}

 

use Gumbo;

 

# Get list of Tasks

say "Updating Programming_Tasks list...";

my $html = $ua.get($page).content;

my $xmldoc = parse-html($html, :TAG<div>, :id<mw-pages>);

 

# Get the raw page

 

# Filter out the actual task description

sub cleanup ( $string ) {

$string.subst( /^.+ '</div>'/, '' )

{{out|Abridged sample output}}

<div style="border-style: groove; margin: 50px; padding: 25px;">

 

Could output text by retrieving innerText instead of innerHTML in Slurp().

 

Dim oIE : Set oIE = CreateObject("InternetExplorer.Application")

 

End Function

 

=={{header|zkl}}==

 

Uses libraries cURL and YAJL (yet another json library).

 

fcn getTasks(language){

}

 

{{out|Concise Output}}

<pre>