50 lines
1018 B
Plaintext
50 lines
1018 B
Plaintext
// Test list type and related built-in functions in PascaLIGO
|
|
|
|
type foobar is list(int)
|
|
|
|
const fb : foobar = list
|
|
23 ;
|
|
42 ;
|
|
end
|
|
|
|
const fb2 : foobar = 144 # fb
|
|
|
|
const fb3 : foobar = cons(688 , fb2)
|
|
|
|
function size_ (const m : foobar) : nat is
|
|
block {skip} with (size(m))
|
|
|
|
// function hdf (const m : foobar) : int is begin skip end with hd(m)
|
|
|
|
const bl : foobar = list
|
|
144 ;
|
|
51 ;
|
|
42 ;
|
|
120 ;
|
|
421 ;
|
|
end
|
|
|
|
function fold_op (const s: list(int)) : int is
|
|
begin
|
|
function aggregate (const prec: int; const cur: int) : int is
|
|
begin
|
|
skip
|
|
end with prec + cur
|
|
end with list_fold(aggregate, s, 10)
|
|
|
|
|
|
function iter_op (const s : list(int)) : int is
|
|
begin
|
|
var r : int := 0 ;
|
|
function aggregate (const i : int) : unit is
|
|
begin
|
|
r := r + i ;
|
|
end with unit ;
|
|
list_iter(aggregate, s) ;
|
|
end with r
|
|
|
|
function map_op (const s : list(int)) : list(int) is
|
|
block {
|
|
function increment (const i : int) : int is block { skip } with i + 1
|
|
} with list_map(increment, s)
|