====== Cut ======
{{tag>cut}}
===== Description =====
Example how to use cut predicate

**Source**:  Adventure in Prolog (on-line tutorial)
===== Download =====
Program source code: {{cut.pl}}
===== Listing =====
<code prolog>
data(one).
data(two).
data(three).

cut_test_a(X) :-
  data(X).
cut_test_a('last clause').

cut1:-cut_test_a(X), write(X), nl, fail.


cut_test_b(X) :-
  data(X),
  !.
cut_test_b('last clause').

cut2:-cut_test_b(X), write(X), nl, fail.

cut_test_c(X,Y) :-
  data(X),
  !,
  data(Y).
cut_test_c('last clause').

cut3:-cut_test_c(X,Y), write(X-Y), nl, fail.

</code>
===== Comments =====