test: Cut with disjunction

This commit is contained in:
Tibo De Peuter 2025-04-15 17:03:14 +02:00
parent 2fcab52f65
commit f9950a3fd3
Signed by: tdpeuter
GPG key ID: 38297DE43F75FFE2
2 changed files with 25 additions and 2 deletions

View file

@ -1,2 +1 @@
not_equal(X, Y) :- X = Y, !, fail.
not_equal(_, _).
choice(X) :- X = 1, !; X = 2.