sandbox/lpn/eating.pl

9 lines
187 B
Perl
Raw Normal View History

2018-01-16 17:46:44 +00:00
is_digesting(X,Y) :- just_ate(X,Y).
is_digesting(X,Y) :-
just_ate(X,Z),
is_digesting(Z,Y).
just_ate(mosquito,blood(john)).
just_ate(frog,mosquito).
just_ate(stork,frog).