17 lines
322 B
Plaintext
17 lines
322 B
Plaintext
general {
|
|
funcon-term:
|
|
initialise-giving finalise-failing
|
|
sequential (
|
|
print map-domain map(),
|
|
print map-domain{1|->2},
|
|
print map-domain{1|->2,3|->4},
|
|
print map-domain{1|->2,3|->( )}
|
|
)
|
|
;
|
|
}
|
|
|
|
tests {
|
|
result-term: null;
|
|
standard-out: [{}, {1}, {1,3}, {1,3}];
|
|
}
|