18 lines
443 B
Text
18 lines
443 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 eval:x); summarize(ArrayList new); toArray).
|
|
var f1 := (:x)(x * 2).
|
|
var f2 := (:x)(x * x).
|
|
|
|
var fsf1 := partial eval(fs, f1).
|
|
var fsf2 := partial eval(fs, f2).
|
|
|
|
console printLine(fsf1 eval:(2,4,6,8)).
|
|
console printLine(fsf2 eval:(2,4,6,8)).
|
|
].
|