8 lines
166 B
Perl
8 lines
166 B
Perl
|
directlyIn(natasha, irina).
|
||
|
|
directlyIn(olga, natasha).
|
||
|
|
directlyIn(katarina, olga).
|
||
|
|
|
||
|
|
in(X, Y) :- directlyIn(X, Y).
|
||
|
|
in(X, Y) :- directlyIn(X, Z),
|
||
|
|
in(Z, Y).
|