23 lines
531 B
Plaintext
23 lines
531 B
Plaintext
general {
|
|
funcon-term:
|
|
initialise-giving finalise-failing
|
|
sequential (
|
|
print map-lookup({1|->2}, 1),
|
|
print map-lookup({1|->2,3|->4}, 1),
|
|
print map-lookup({1|->2,3|->4}, 3),
|
|
else(
|
|
effect checked map-lookup(map(), 1),
|
|
effect checked map-lookup({1|->2}, 2),
|
|
effect checked map-lookup({1|->2,3|->4}, 2),
|
|
effect checked map-lookup({1|->2,3|->4}, 5),
|
|
print "OK"
|
|
)
|
|
)
|
|
;
|
|
}
|
|
|
|
tests {
|
|
result-term: null-value;
|
|
standard-out: [2, 2, 4, "OK"];
|
|
}
|