aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

langs a-z

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 22:43:41 -07:00
parent db842d013d
commit d066446780
11389 changed files with 98361 additions and 1020 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Higher-order-functions/Pascal/higher-order-functions-1.pascal Normal file
View file

@ -0,0 +1,15 @@
program example(output);
function first(function f(x: real): real): real;
begin
first := f(1.0) + 2.0;
end;
function second(x: real): real;
begin
second := x/2.0;
end;
begin
writeln(first(second));
end.

20
Task/Higher-order-functions/Pascal/higher-order-functions-2.pascal Normal file
View file

@ -0,0 +1,20 @@
program example;
type
FnType = function(x: real): real;
function first(f: FnType): real;
begin
first := f(1.0) + 2.0;
end;
{$F+}
function second(x: real): real;
begin
second := x/2.0;
end;
{$F-}
begin
writeln(first(second));
end.