test: Cut with disjunction
This commit is contained in:
parent
2fcab52f65
commit
f9950a3fd3
2 changed files with 25 additions and 2 deletions
|
@ -1,2 +1 @@
|
|||
not_equal(X, Y) :- X = Y, !, fail.
|
||||
not_equal(_, _).
|
||||
choice(X) :- X = 1, !; X = 2.
|
||||
|
|
Reference in a new issue