Programa de Receitas

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

ingrediente(bolo,ovo). %bolo(ovo,leite,farinha,agua,mantega,oleo,acucar)
ingrediente(bolo,leite).
ingrediente(bolo,farinha).
ingrediente(bolo,agua).
ingrediente(bolo,mantega).
ingrediente(bolo,oleo).
ingrediente(bolo,acucar).
ingrediente(bolo,fermento).
ingrediente(pao,farinha). %pao(farinha,agua,fermento,sal)
ingrediente(pao,agua).
ingrediente(pao,fermento).
ingrediente(pao,sal).
ingrediente(pao_na_chapa,pao). %pao na chapa(pao,mantega)
ingrediente(pao_na_chapa,mantega).
ingrediente(brigadeiro,chocolate). %brigadeiro(chocolate,leite,granulado,acucar)
ingrediente(brigadeiro,leite).
ingrediente(brigadeiro,granulado).
ingrediente(brigadeiro,acucar).
ingrediente(churrasco,carne). %churrasco(carne,sal_grosso,oregano,molho_shoyu)
ingrediente(churrasco,sal_grosso).
ingrediente(churrasco,oregano).
ingrediente(churrasco,molho_shoyu).
ingrediente(omelete,ovo). %omelete(ovo,sal,oregano,oleo)
ingrediente(omelete,oregano).
ingrediente(omelete,sal).
ingrediente(omelete,oleo).
ingrediente(batata_frita,oleo). %batata frita(oleo,batata,sal)
ingrediente(batata_frita,batata).
ingrediente(batata_frita,sal).
ingrediente(misto_quente,pao). %misto quente(pao,queijo,carne)
ingrediente(misto_quente,queijo).
ingrediente(misto_quente,carne).
%fonte dos ingredientes:
fonte(ovo,galinha).
fonte(ovo,pato).
fonte(ovo,codorna).
fonte(leite,vaca).
fonte(leite,ovelha).
fonte(farinha,trigo).
fonte(farinha,mandioca).
fonte(farinha,pao).
fonte(agua,poco).
fonte(agua,nascente).
fonte(oleo,soja).
fonte(oleo,amendoim).
fonte(sal,agua).
fonte(sal_grosso,sal).
fonte(carne,vaca).
fonte(carne,galinha).
fonte(carne,porco).
fonte(queijo,leite).
fonte(batata,batata).
fonte(chocolate,cacau).
fonte(granulado,chocolate).
fonte(fermento,bacteria).
fonte(molho_shoyu,soja).
fonte(mantega,vaca).
fonte(acucar,cana).
fonte(oregano,oregano).%oregano já é a planta :/
%preço dos ingredientes:
preco(ovo,10). %1duzia
preco(leite,4). %1L
preco(farinha,5). %1kg
preco(agua,2). %mineral, 500ml
preco(oleo,7). %900ml
preco(sal,2).%1kg
preco(sal_grosso,2). %1kg
preco(carne,40). %1kg
preco(queijo,25). %1kg
preco(batata,5). %1kg
preco(chocolate,12). %400g
preco(granulado,4). %150g
preco(fermento,4). %100g
preco(molho_shoyu,5). %150ml
preco(mantega,5). %250g
preco(acucar,4). %1kg
preco(oregano,2).%3g
start:-repeat,write("o que deseja pesquisar:"),nl, %menu do programa de receitas
 write("1-receita |2-onde achar um ingrediente |3-fazer algo com o que tenho |4-preço dos ingredientes no mercado"),nl,
	 read(X),
 	call(if(X)).
if(1):-write("a receita de que voce quer? "),
 read(X), receita(X,Y), write(Y),nl,fail.
if(2):-write("qual ingrediente voce quer saber onde achar?"),
 read(X),valor_do_item(X,Y),write(Y),write(" reais no mercado"),nl,
 write("ou adquira pelas fontes:"),nl,receita(X,A), write(A),nl,fail.
if(3):-write("o que voce tem para eu procurar uma receita com isso"),
 read(X), lol(X,Y), write(Y),nl,fail.
lol(X,Y):-	o_que_fazer_com(X,Y);receita(Y,X). %funcoes usadas para busca
%com essa função pode digita tanto um ingrediente pronto quanto uma fonte,
%por ex agua, que o programa acha uma receita ou um ingrediente com isso
receita(Y,X):-ingrediente(Y,X);fonte(Y,X).
%receita(bolo,x) dá a receita do bolo
%receita(chocolate,x) dá de onde vem o chocolate
%receita(X,agua) dá as receitas que usam agua
%receita(X,soja) dá os ingredientes que precisam de soja
o_que_fazer_com(X,Y):- fonte(A,X),ingrediente(Y,A).
%o_que_fazer_com(vaca,X) dá as receitas que podem ser feitas com uma vaca (bom pra quem tem sitio :)
%o_que_fazer_com(X,bolo) dá o que é necessário ter para fazer a receita do bolo
valor_do_item(X,Y):- preco(X,Y).
%só retorna o preço do produto