ligo/src/test/contracts/high-order.ligo

// 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