/*
	Beispielprogramm im Skriptum, auf Deutsch übersetzt.
    Erweiterung durch Kalorien.
*/

vorspeise(cresson).
vorspeise(truffes).
vorspeise(artichauts).

fleischSpeise(grillade).
fleischSpeise(poulet).

fischSpeise(bar).
fischSpeise(chapon).

speise(S) :- fleischSpeise(S); fischSpeise(S).

dessert(sorbet).
dessert(fraises).
dessert(melon).

mahlzeit(V, H, D) :-
	vorspeise(V),
    speise(H),
    dessert(D).
    
kalorien(cresson, 202).
kalorien(truffes, 212).
kalorien(artichauts, 150).
kalorien(grillade, 532).
kalorien(poulet, 400).
kalorien(bar, 292).
kalorien(chapon, 254).
kalorien(sorbet, 223).
kalorien(fraises, 289).
kalorien(melon, 122).

naehrwert(V, H, D, K) :-
	kalorien(V, KV),
    kalorien(H, KH),
    kalorien(D, KD),
    K is KV + KH + KD.

/*Fehler im Skriptum: repas(E, P, D) und valeur(E, P, D, V) 
  (hier mahlzeit() und naehrwert()) gehören statt
  mit Strichpunkt mit Komma verbunden. */

diaet(V, H, D, N) :-
	mahlzeit(V, H, D), 
    naehrwert(V, H, D, N), N =< 800.