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

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/First-class-functions/Elena/first-class-functions.elena
View file

@ -10,8 +10,8 @@ extension op
program =
[
var fs := (%"mathOp.sin[0]", %"mathOp.cos[0]", [ ^ closure power:3.0r ]).
var gs := (%"mathOp.arcsin[0]", %"mathOp.arccos[0]", [ ^ closure power:(1.0r / 3) ]).
var fs := (%"mathOp.sin[0]", %"mathOp.cos[0]", { eval [ ^ self power:3.0r ] }).
var gs := (%"mathOp.arcsin[0]", %"mathOp.arccos[0]", { eval[ ^ self power:(1.0r / 3) ]}).
fs zip:gs by(:f:g)( 0.5r compose(f,g) );
forEach:printingLn.