Rosetta Code/Tasks without examples: Difference between revisions
m
syntax highlighting fixup automation
m (→{{header|Phix}}: syntax coloured, use common code) |
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
||
Line 13:
=={{header|D}}==
<
import std.net.curl;
import std.range;
Line 47:
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.
Line 134:
=={{header|Go}}==
<
import (
Line 177:
time.Sleep(5 * time.Second) // wait 5 seconds before processing next task
}
}</
{{out}}
Line 270:
=={{header|Java}}==
{{trans|Kotlin}}
<
import java.net.URI;
import java.net.URISyntaxException;
Line 336:
tasks.stream().limit(limit).forEach(task -> process(client, base, task));
}
}</
=={{header|Julia}}==
{{trans|Go}}
<
function gettaskdescriptions(numtoprint = 3)
Line 358:
gettaskdescriptions()
</syntaxhighlight>
=={{header|Kotlin}}==
<
import java.net.http.HttpClient
import java.net.http.HttpRequest
Line 414:
}
}
}</
=={{header|Nim}}==
{{trans|Go}}
<
let re1 = re("""<li><a href="/wiki/(.*?)"""")
Line 448:
echo xmlnode.innerText() # Echo the tree as text.
if i == Limit - 1: break
os.sleep(5000) # Wait 5 seconds before processing next task.</
{{out}}
Line 537:
=={{header|Perl}}==
Slice and dice the HTML. Output is as for the other examples.
<
use warnings;
Line 553:
print "$title\n$task_at_hand\n\n";
sleep 10; # so you have time to read each task...
}</
=={{header|Phix}}==
Line 559:
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>
Line 658:
<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}}==
Line 664:
{{works with|Rakudo|2017.10}}
<syntaxhighlight lang="raku"
use Gumbo;
Line 715:
sub cleanup ( $string ) {
$string.subst( /^.+ '</div>'/, '' )
}</
{{out|Abridged sample output}}
<div style="border-style: groove; margin: 50px; padding: 25px;">
Line 801:
Could output text by retrieving innerText instead of innerHTML in Slurp().
<
Dim oIE : Set oIE = CreateObject("InternetExplorer.Application")
Line 876:
End Function
</syntaxhighlight>
=={{header|Wren}}==
Line 882:
{{libheader|Wren-pattern}}
An embedded program so we can use the libcurl library.
<
import "./pattern" for Pattern
Line 954:
System.print("\n****** %(title) ******\n")
System.print(text)
}</
<br>
which we embed in the following C program, build and run.
<
#include <stdio.h>
Line 1,147:
free(script);
return 0;
}</
{{out}}
Line 1,231:
Uses libraries cURL and YAJL (yet another json library).
<
fcn getTasks(language){
Line 1,276:
}
newTasks();</
{{out|Concise Output}}
<pre>
|