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)

 

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}}

<span style="color: #000080;font-style:italic;">-- demo\rosetta\Tasks_without_examples.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: #0000FF;">?</span><span style="color: #008000;">"done"</span>

<span style="color: #0000FF;">{}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">wait_key</span><span style="color: #0000FF;">()</span>

 

=={{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|Wren}}==

{{libheader|Wren-pattern}}

An embedded program so we can use the libcurl library.

 

import "./pattern" for Pattern

var unescs = [

["_", " "],

["\%27", "'"],

["\%C3\%A9", "é"],

}

 

var content = getContent.call(url)

var p1 = Pattern.new("<li><a href/=\"//wiki//[+1^\"]\"")

var tasks = matches.map { |m| m.capsText[0] }.toList

for (task in tasks.take(3)) { // just show the first 3 say

var html = getContent.call(taskUrl)

var text = "using any language you may know.</div>"

var start = html.indexOf(text)

html = html[start + text.count...end]

text = p2.replaceAll(html, "").replace("&#160;", "").trim()

System.print("\n****** %(title) ******\n")

System.print(text)

<br>

which we embed 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}}

****** 100 doors ******

 

The third time, visit every 3rd door (door #3, #6, #9, ...), etc, until you only visit the 100th door.

 

Answer the question: what state are the doors in after the last pass? Which are open, which are closed?

 

As noted in this page's discussion page, the only doors that remain open are those whose numbers are perfect squares.

however, as should be obvious, this defeats the intent of comparing implementations across programming languages.

 

The Problem

 

 

 

The task

 

 

Show and compare the computed probabilities of success for the two strategies, here, on this page.

References

 

 

****** 15 puzzle game ******

Implement the Fifteen Puzzle Game.

 

 

 

 

Related Tasks

 

</pre>

 

 

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

 

fcn getTasks(language){

}

 

{{out|Concise Output}}

<pre>