Rosetta Code/Run examples: Difference between revisions

<langsyntaxhighlight lang="go">package main

}</langsyntaxhighlight>

This is a fairly comprehensive task code runner. It is set up to work for Perl 6Raku by default, but has basic configurations to run Perl, Python, Tcl and Go tasks as well. It can be easily tweaked to work with other languages by adding a load-lang('whatever'){} routine similar to the Perl6Raku, Perl, Python, Tcl and Go ones. (And ensuring that the appropriate compiler is installed and accessible.) There is so much variation to the task requirements and calling conventions that it would be problematic to make a general purpose, language agnostic code runner so some configuration is necessary to make it work with other languages.

By default, this will download the Perl 6Raku section of any (every) task that has a Perl 6Raku example, extract the code blocks and attempt to run them. Many tasks require files or user interaction to proceed, others are not complete runnable code blocks (example code fragments), some tasks run forever. To try to deal with and compensate for this, this implementation can load a %resource hash that will: supply input files where necessary, skip unrunnable code fragments, limit long and/or infinite running blocks, supply user interaction code where possible, and skip blocks where user interaction is unavoidable.

<syntaxhighlight lang="raku" perl6line>use HTTP::UserAgent;

say "Version = 2020-0203-16T0115T12:0015:3331";

Str :$lang = 'perl6raku', #= Language, default perl6raku - should be same asused into <langload *>configuration markupsettings

my $url = 'httphttps://rosettacode.org/mww';

say "Getting code from: httphttps://rosettacode.org/wiki/{ $title.subst(' ', '_', :g) }#%l<language>";

multi check-dependencies ($fn, 'perl6raku') {

print %c<dep>;

say 'ok, no installation necessary: ', $module;

print %c<clr>;

next;

if './../../../perl6raku-modules.txt'.IO.e {

my $fh = open( './../../../perl6raku-modules.txt', :w ) or die $fh;

note "Sorry, don't know how to handle dependanciesdependencies for $unknown language."

multi load-lang ('perl6raku') { ( # Language specific variables. Adjust to suit.

language => 'Perl_6Raku', # language category name

exe => 'perl6raku', # executable commandname to run perl6 in a shell

ext => '.p6raku', # file extension for perl6 code (optional, but nice to have)

dir => 'perl6raku', # directory to save tasks to

header => 'Perl 6Raku', # header text (=={{header|Raku}}==)

# and to avoid getting tripped up when trying to run _this_ task.

tag => rx/:i <?after '<langsyntaxhighlight lang="' 'perl' '"' ' line'? '>' > .*? <?before '</' 'lang>'>/,

tag => rx/:i <?after '<langsyntaxhighlight lang="' 'python' '"' ' line'? '>' > .*? <?before '</' 'lang>'>/,

tag => rx/:i <?after '<langsyntaxhighlight lang="' 'go' '"' ' line'? '>' > .*? <?before '</' 'lang>'>/,

multi load-resources ($unknown) { () };</langsyntaxhighlight>

{{out}} with command line: '''perl6raku RC-run.p6 -q "Determine if a string is numeric"'''

Getting code from: http://rosettacode.org/wiki/Determine_if_a_string_is_numeric#Perl_6Raku

Command line: perl6raku Determine_if_a_string_is_numeric.p6

'''perl6raku RC-run.p6 Lucky_and_even_lucky_numbers''' -q

Getting code from: http://rosettacode.org/wiki/Lucky_and_even_lucky_numbers#Perl_6Raku

Command line: perl6raku Lucky_and_even_lucky_numbers.p6 20 , lucky

Command line: perl6raku Lucky_and_even_lucky_numbers.p6 1 20

Command line: perl6raku Lucky_and_even_lucky_numbers.p6 1 20 evenlucky

Command line: perl6raku Lucky_and_even_lucky_numbers.p6 6000 -6100

Command line: perl6raku Lucky_and_even_lucky_numbers.p6 6000 -6100 evenlucky

Try running a Go task - Command line: '''perl6raku RC-run.p6 -q --lang=go "Determine if a string is numeric"'''

Done task #1: Determine_if_a_string_is_numeric0 - wallclock seconds: 0.0216

Done task #1: Determine_if_a_string_is_numeric1 - wallclock seconds: 0.15147

<langsyntaxhighlight lang="runbasic">bf$ = "<SPAN STYLE='font-family:Arial; font-weight:700; font-size:12pt'>"

END FUNCTION</langsyntaxhighlight>

<langsyntaxhighlight lang="tcl"># Code to download task contents from find-bare-lang-tags task

# Code to extract the first <syntaxhighlight lang="text"> section for a language

# Extended format RE used to allow embedding within _this_ task's <syntaxhighlight lang="text">!

if {![regexp {(?x)<langsyntaxhighlight lang=".*?">(.*?)</ lang>} $content -> solution]} {

runTclTaskForLanguage {*}$argv</langsyntaxhighlight>