rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

simplify stackless iterator is_cyclic (#2111)

Browse Source
This commit is contained in:
Mark
2023-10-14 23:56:46 -06:00
parent d96c9e00b7
commit 7875b96956
2 changed files with 23 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
src/tests/acyclic_term.pl
View File

@@ -15,6 +15,10 @@ term3(A) :-
D=[C|_E],
A=[C|D].
term4(A) :-
A=[B|C],
C=[C|B].
test("acyclic_term_1", (
L = [_Y,[M,B],B|M], acyclic_term(L)
)).
@@ -123,6 +127,19 @@ test("acyclic_term_26", (
T = [[T, _], 1], \+ acyclic_term(T)
)).
test("acyclic_term_27", (
T = str(A,A), acyclic_term(T)
)).
test("acyclic_term_28", (
T = str(A,A,A), acyclic_term(T)
)).
test("acyclic_term_29", (
A = s(B, d(Y)), Y = B, acyclic_term(A),
acyclic_term(B), acyclic_term(Y)
)).
test("acyclic_term#2111_1", (
term1(A), \+ acyclic_term(A)
)).
@@ -135,6 +152,10 @@ test("acyclic_term#2111_3", (
term3(A), \+ acyclic_term(A)
)).
test("acyclic_term#2111_4", (
term4(A), \+ acyclic_term(A)
)).
test("acyclic_term#2113", (
A=[]*B,B=[]*B, \+ acyclic_term(A)
)).
@@ -143,14 +164,6 @@ test("acyclic_term#2114", (
A=B*B, acyclic_term(A)
)).
test("acyclic_term_27", (
T = str(A,A), acyclic_term(T)
)).
test("acyclic_term_28", (
T = str(A,A,A), acyclic_term(T)
)).
main :-
findall(test(Name, Goal), test(Name, Goal), Tests),
run_tests(Tests, Failed),