sandbox/lpn/ch01/kb3.pl

10 lines
200 B
Perl
Raw Normal View History

2018-01-16 17:46:44 +00:00
happy(vincent).
listens2Music(butch).
playsAirGuitar(vincent):-
listens2Music(vincent),
happy(vincent).
playsAirGuitar(butch):-
happy(butch).
playsAirGuitar(butch):-
listens2Music(butch).