aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Runtime-evaluation-In-an-environment/AppleScript/runtime-evaluation-in-an-environment-1.applescript Normal file
View file

@ -0,0 +1,6 @@
on task_with_x(pgrm, x1, x2)
local rslt1, rslt2
set rslt1 to run script pgrm with parameters {x1}
set rslt2 to run script pgrm with parameters {x2}
rslt2 - rslt1
end task_with_x

6
Task/Runtime-evaluation-In-an-environment/AppleScript/runtime-evaluation-in-an-environment-2.applescript Normal file
View file

@ -0,0 +1,6 @@
set pgrm_with_x to "
on run {x}
2^x
end"
task_with_x(pgrm_with_x, 3, 5)

5
Task/Runtime-evaluation-In-an-environment/Perl-6/runtime-evaluation-in-an-environment.pl6
View file

@ -1,4 +1,5 @@
sub eval_with_x($code, *@x) { [R-] @x.map: -> \x { eval $code } }
use MONKEY-SEE-NO-EVAL;
sub eval_with_x($code, *@x) { [R-] @x.map: -> \x { EVAL $code } }
say eval_with_x('3 * x', 5, 10); # Says "15".
say eval_with_x('3 * x', 5, 10, 50); # Says "135".
say eval_with_x('3 * x', 5, 10, 50); # Says "105".