23 lines
573 B
Plaintext
23 lines
573 B
Plaintext
|
function sum_list (var l : list (int)) : int is block {
|
||
|
|
var total : int := 0;
|
||
|
|
for i in list l block {
|
||
|
|
total := total + i
|
||
|
|
}
|
||
|
|
} with total
|
||
|
|
|
||
|
|
function sum_set (var s : set (int)) : int is block {
|
||
|
|
var total : int := 0;
|
||
|
|
for i in set s block {
|
||
|
|
total := total + i
|
||
|
|
}
|
||
|
|
} with total
|
||
|
|
|
||
|
|
function sum_map (var m : map (string, int)) : string * int is block {
|
||
|
|
var string_total : string := "";
|
||
|
|
var int_total : int := 0;
|
||
|
|
for key -> value in map m block {
|
||
|
|
string_total := string_total ^ key;
|
||
|
|
int_total := int_total + value
|
||
|
|
}
|
||
|
|
} with (string_total, int_total)
|