init commit again
This commit is contained in:
@@ -0,0 +1,20 @@
|
||||
general {
|
||||
funcon-term:
|
||||
initialise-giving finalise-failing
|
||||
sequential (
|
||||
print [forest-branch-sequence
|
||||
(tree(1),
|
||||
tree(2,tree(3)),
|
||||
tree(4),
|
||||
tree(5,tree(6),tree(7)))
|
||||
]
|
||||
)
|
||||
;
|
||||
}
|
||||
|
||||
tests {
|
||||
result-term: null-value;
|
||||
standard-out: [
|
||||
[tree(3),tree(6),tree(7)]
|
||||
];
|
||||
}
|
||||
@@ -0,0 +1,20 @@
|
||||
general {
|
||||
funcon-term:
|
||||
initialise-giving finalise-failing
|
||||
sequential (
|
||||
print [forest-root-value-sequence
|
||||
(tree(1),
|
||||
tree(2,tree(3)),
|
||||
tree(4),
|
||||
tree(5,tree(6),tree(7)))
|
||||
]
|
||||
)
|
||||
;
|
||||
}
|
||||
|
||||
tests {
|
||||
result-term: null-value;
|
||||
standard-out: [
|
||||
[1,2,4,5]
|
||||
];
|
||||
}
|
||||
@@ -0,0 +1,20 @@
|
||||
general {
|
||||
funcon-term:
|
||||
initialise-giving finalise-failing
|
||||
sequential (
|
||||
print [forest-value-sequence
|
||||
(tree(1),
|
||||
tree(2,tree(3)),
|
||||
tree(4),
|
||||
tree(5,tree(6),tree(7)))
|
||||
]
|
||||
)
|
||||
;
|
||||
}
|
||||
|
||||
tests {
|
||||
result-term: null-value;
|
||||
standard-out: [
|
||||
[1,2,3,4,5,6,7]
|
||||
];
|
||||
}
|
||||
@@ -0,0 +1,22 @@
|
||||
general {
|
||||
funcon-term:
|
||||
initialise-giving finalise-failing
|
||||
sequential (
|
||||
print [single-branching-sequence tree(1)],
|
||||
print [single-branching-sequence tree(1,tree(2,tree(3)))],
|
||||
else(
|
||||
print [single-branching-sequence tree(1,tree(2),tree(3))],
|
||||
print [single-branching-sequence tree(1,tree(2,tree(3,tree(4),tree(5))))],
|
||||
print "OK")
|
||||
)
|
||||
;
|
||||
}
|
||||
|
||||
tests {
|
||||
result-term: null-value;
|
||||
standard-out: [
|
||||
[1],
|
||||
[1,2,3],
|
||||
"OK"
|
||||
];
|
||||
}
|
||||
@@ -0,0 +1,16 @@
|
||||
general {
|
||||
funcon-term:
|
||||
initialise-giving finalise-failing
|
||||
sequential (
|
||||
print tree-branch-sequence
|
||||
tree(1,tree(2,tree(3)),tree(4),tree(5,tree(6),tree(7)))
|
||||
)
|
||||
;
|
||||
}
|
||||
|
||||
tests {
|
||||
result-term: null-value;
|
||||
standard-out: [
|
||||
tree(2,tree(3)), tree(4), tree(5,tree(6),tree(7))
|
||||
];
|
||||
}
|
||||
@@ -0,0 +1,16 @@
|
||||
general {
|
||||
funcon-term:
|
||||
initialise-giving finalise-failing
|
||||
sequential (
|
||||
print tree-root-value
|
||||
tree(1,tree(2,tree(3)),tree(4),tree(5,tree(6),tree(7)))
|
||||
)
|
||||
;
|
||||
}
|
||||
|
||||
tests {
|
||||
result-term: null-value;
|
||||
standard-out: [
|
||||
1
|
||||
];
|
||||
}
|
||||
@@ -0,0 +1,21 @@
|
||||
general {
|
||||
funcon-term:
|
||||
initialise-giving finalise-failing
|
||||
sequential (
|
||||
print tree(1),
|
||||
print tree(1,tree(2,tree(3))),
|
||||
print tree(1,tree(2),tree(3)),
|
||||
print tree(1,tree(2,tree(3)),tree(4),tree(5,tree(6),tree(7)))
|
||||
)
|
||||
;
|
||||
}
|
||||
|
||||
tests {
|
||||
result-term: null-value;
|
||||
standard-out: [
|
||||
tree(1),
|
||||
tree(1,tree(2,tree(3))),
|
||||
tree(1,tree(2),tree(3)),
|
||||
tree(1,tree(2,tree(3)),tree(4),tree(5,tree(6),tree(7)))
|
||||
];
|
||||
}
|
||||
Reference in New Issue
Block a user