init commit again

This commit is contained in:
Peter
2023-11-01 09:29:33 +01:00
parent 448147e7da
commit d6c745207b
250 changed files with 15552 additions and 1 deletions

View File

@@ -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)]
];
}

View File

@@ -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]
];
}

View File

@@ -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]
];
}

View File

@@ -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"
];
}

View File

@@ -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))
];
}

View File

@@ -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
];
}

View File

@@ -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)))
];
}