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

September Morn Update

Browse source
This commit is contained in:
Ingy döt Net 2019-09-12 10:33:56 -07:00
parent 4e2d22a71d
commit aac6731f2c
6856 changed files with 141342 additions and 21127 deletions
Download patch file Download diff file Expand all files Collapse all files

28
Task/Partial-function-application/Elena/partial-function-application.elena
View file

@ -1,18 +1,18 @@
import system'collections.
import system'routines.
import extensions.
import system'collections;
import system'routines;
import extensions;
program =
[
var partial := (:afs:af)((:s)(afs eval(af, s))).
public program()
{
var partial := (afs,af => (s => afs(af, s)));
var fs := (:f:s)(s selectBy(:x)(f(x)); summarize(ArrayList new); toArray).
var f1 := (:x)(x * 2).
var f2 := (:x)(x * x).
var fs := (f,s => s.selectBy:(x => f(x)).summarize(new ArrayList()).toArray());
var f1 := (x => x * 2);
var f2 := (x => x * x);
var fsf1 := partial(fs, f1).
var fsf2 := partial(fs, f2).
var fsf1 := partial(fs, f1);
var fsf2 := partial(fs, f2);
console printLine(fsf1((2,4,6,8))).
console printLine(fsf2((2,4,6,8))).
].
console.printLine(fsf1(new int[]{2,4,6,8}).toString());
console.printLine(fsf2(new int[]{2,4,6,8}).toString())
}