pascalabcnet/TestSuite/lambdas_closures_8.pas

5 lines
82 B
ObjectPascal
Raw Permalink Normal View History

2015-05-14 22:35:07 +03:00
begin
var f: IntFunc := x->x*4;
var g: IntFunc := x->x + f(0);
f(1);
end.