18 lines
421 B
Text
18 lines
421 B
Text
import system'collections.
|
|
import system'routines.
|
|
import extensions.
|
|
|
|
program =
|
|
[
|
|
var partial := (:afs:af)((:s)(afs eval(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 fsf1 := partial(fs, f1).
|
|
var fsf2 := partial(fs, f2).
|
|
|
|
console printLine(fsf1((2,4,6,8))).
|
|
console printLine(fsf2((2,4,6,8))).
|
|
].
|