sandbox/lpn/test.pl

4 lines
81 B
Perl
Raw Normal View History

2018-01-16 17:46:44 +00:00
listensToMusic(X) :- happy(X).
playsAirGuitar(X) :- listensToMusic(X).
happy(a).