RosettaCodeData/Task/Function-composition/PascalABC.NET/function-composition.pas

function Compose<T,T1,T2>(f: T1 -> T2; g: T -> T1): T -> T2 := x -> f(g(x));

begin
  Compose(Sin,ArcSin)(1.0).Print
end.
Data update 2024-10-16 18:07:41 -07:00			`function Compose<T,T1,T2>(f: T1 -> T2; g: T -> T1): T -> T2 := x -> f(g(x));`
Initial data commit 2023-07-01 11:58:00 -04:00
Data update 2024-10-16 18:07:41 -07:00			`begin`
			`Compose(Sin,ArcSin)(1.0).Print`
			`end.`