1
0
ITI0021-loogiline-programme.../PR01/prax01.pl

6 lines
119 B
Perl
Raw Normal View History

2018-09-05 12:46:33 +03:00
lind(part).
lind(hani).
lendab(X):- write(X), lind(X), write(' lendab').
lendab(_):- write(' ei ole lind'),nl,!,fail.