mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 09:23:44 +00:00
34 lines
1.1 KiB
Plaintext
34 lines
1.1 KiB
Plaintext
|
|
cords:
|
|
Z = empty_cord
|
|
A = nonempty_cord(list_node('a', []))
|
|
B = nonempty_cord(list_node('b', []))
|
|
AB = nonempty_cord(branch_node(list_node('a', []), list_node('b', [])))
|
|
BA = nonempty_cord(branch_node(list_node('b', []), list_node('a', [])))
|
|
ABA1 = nonempty_cord(branch_node(list_node('a', []), branch_node(list_node('b', []), list_node('a', []))))
|
|
ABA2 = nonempty_cord(branch_node(branch_node(list_node('a', []), list_node('b', [])), list_node('a', [])))
|
|
BAB1 = nonempty_cord(branch_node(list_node('b', []), branch_node(list_node('a', []), list_node('b', []))))
|
|
BAB2 = nonempty_cord(branch_node(branch_node(list_node('b', []), list_node('a', [])), list_node('b', [])))
|
|
ABBA = nonempty_cord(branch_node(branch_node(list_node('a', []), list_node('b', [])), branch_node(list_node('b', []), list_node('a', []))))
|
|
BAAB = nonempty_cord(branch_node(branch_node(list_node('b', []), list_node('a', [])), branch_node(list_node('a', []), list_node('b', []))))
|
|
|
|
construction: ok
|
|
|
|
concatenation: ok
|
|
|
|
equals: ok
|
|
|
|
identity: ok
|
|
|
|
length: ok
|
|
|
|
membership: ok
|
|
|
|
map: ok
|
|
|
|
foldl: ok
|
|
|
|
foldr: ok
|
|
|
|
condense: ok
|