8 lines
139 B
ObjectPascal
8 lines
139 B
ObjectPascal
|
procedure p<X, Y>(a: System.Func<X, Y>; b: System.Func<Y, X>; c: X);
|
|||
|
|
begin
|
|||
|
|
writeln(a(c));
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
p(x -> x, x -> 1.0, 4.0);
|
|||
|
|
end.
|