Skip to content
Snippets Groups Projects

Test case for succeeds

Merged Chew, Khemi requested to merge kjc20/fruit-matching-test-cases:master into master
1 file
+ 4
1
Compare changes
  • Side-by-side
  • Inline
+ 4
1
@@ -146,4 +146,7 @@ write('Question 14 - move(B, M, NB)\n'),
move([[d, b, c], [a, e, f], [g, h, i]], switch_column, [[d, b, c], [g, e, f], [a, h, i]]).
write('Question 15 - succeeds(Sequence)\n').
succeeds(Sequence).
findall(S, succeeds(S), L), length(L, 16),
member([[[b,g],[g,b]],[[g,b],[g,b]],[[g,b],[b,g]],[[b,b],[g,g]],[[e,e],[g,g]],[[e,e],[e,e]]], L),
member([[[b,g],[g,b]],[[g,b],[g,b]],[[g,b],[b,g]],[[b,b],[g,g]],[[b,b],[e,e]],[[e,e],[e,e]]], L),
member([[[b,g],[g,b]],[[g,b],[g,b]],[[g,b],[b,g]],[[g,g],[b,b]],[[e,e],[b,b]],[[e,e],[e,e]]], L).
Loading