46 lines
1.2 KiB
Plaintext
46 lines
1.2 KiB
Plaintext
// Test a PascaLIGO function which takes another PascaLIGO function as an argument
|
|
function foobar (const i : int) : int is
|
|
begin
|
|
function foo (const i : int) : int is i;
|
|
function bar (const f : int -> int) : int is f (i);
|
|
end with bar (foo);
|
|
|
|
// higher order function with more than one argument
|
|
function higher2(const i : int; const f : int -> int): int is
|
|
begin
|
|
const ii: int = f (i)
|
|
end with ii
|
|
|
|
function foobar2 (const i : int) : int is
|
|
begin
|
|
function foo2 (const i : int) : int is i
|
|
end with higher2 (i,foo2)
|
|
|
|
const a : int = 0;
|
|
|
|
function foobar3 (const i : int) : int is
|
|
begin
|
|
function foo2 (const i : int) : int is a+i
|
|
end with higher2 (i,foo2)
|
|
|
|
function f (const i : int) : int is i
|
|
|
|
function g (const i : int) : int is f (i)
|
|
|
|
function foobar4 (const i : int) : int is g (g (i))
|
|
|
|
function higher3(const i : int; const f : int -> int; const g : int -> int)
|
|
: int is
|
|
begin
|
|
const ii : int = f(g(i))
|
|
end with ii
|
|
|
|
function foobar5 (const i : int) : int is
|
|
begin
|
|
const a : int = 0;
|
|
function foo (const i : int) : int is a+i;
|
|
function goo (const i : int) : int is foo (i)
|
|
end with higher3(i,foo,goo)
|
|
|
|
function foobar6 (const i : int) : int -> int is f
|