MFC/p2/menu.pl

15 lines
208 B
Perl
Raw Permalink Normal View History

2018-10-15 18:55:06 +02:00
primero(ensalada).
primero(sopa).
primero(revuelto).
segundo(chuleta).
segundo(lubina).
segundo(pollo).
postre(natillas).
postre(flan).
postre(cafe).
comida(X, Y, Z) :- primero(X), segundo(Y), postre(Z).