Availability:built-in
t0 :- (a, !, b). | % prunes a/0 and t0/0 |
t1 :- (a, !, fail ; b). | % prunes a/0 and t1/0 |
t2 :- (a -> b, ! ; c). | % prunes b/0 and t2/0 |
t3 :- call((a, !, fail ; b)). | % prunes a/0 |
t4 :- | % prunes a/0 |
t0 :- (a, !, b). | % prunes a/0 and t0/0 |
t1 :- (a, !, fail ; b). | % prunes a/0 and t1/0 |
t2 :- (a -> b, ! ; c). | % prunes b/0 and t2/0 |
t3 :- call((a, !, fail ; b)). | % prunes a/0 |
t4 :- | % prunes a/0 |