Advertisement
Guest User

wiedza.pl

a guest
Jun 1st, 2012
127
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. prefiks(pytanie, 'Czy to danie ').
  2. prefiks(odpowiedz, 'Przebadane danie to ').
  3.  
  4. pytanie(biale, 'jest białe').
  5. pytanie(brazowe, 'jest brązowe').
  6. pytanie(czerwone, 'jest czerwone').
  7. pytanie(dlugie, 'jest długie').
  8. pytanie(ladne, 'jest ładne').
  9. pytanie(kolorowe, 'ma różne kolory').
  10. pytanie(kulki, 'ma kształt małych kulek').
  11. pytanie(miekkie, 'jest miękkie').
  12. pytanie(plaskie, 'jest płaskie').
  13. pytanie(plyn, 'jest w postaci płynnej').
  14. pytanie(podlozne, 'jest podłużne').
  15. pytanie(przezroczyste, 'jest przezroczyste').
  16. pytanie(smierdzi, 'śmierdzi').
  17. pytanie(sypkie, 'jest sypkie').
  18. pytanie(szare, 'jest szare').
  19. pytanie(trzesie, 'się trzęsie').
  20. pytanie(zielone, 'jest zielone').
  21. pytanie(zimne, 'zostało podane na zimno').
  22. pytanie(zolte, 'jest żółte').
  23.  
  24. nazwa(buraczki, 'buraczki').
  25. nazwa(chlodnik, 'chłodnik').
  26. nazwa(coleslaw, 'coleslaw').
  27. nazwa(flaki, 'flaki').
  28. nazwa(karp_w_galarecie, 'karp w galarecie').
  29. nazwa(kasza_gryczana, 'kasza gryczana').
  30. nazwa(kuskus, 'kuskus').
  31. nazwa(makaron, 'makaron').
  32. nazwa(mielony, 'mielony').
  33. nazwa(murzynek, 'murzynek').
  34. nazwa(rosol, 'rosół').
  35. nazwa(ryba_smazona, 'ryba smażona').
  36. nazwa(ryz, 'ryż').
  37. nazwa(schab, 'schab').
  38. nazwa(salatka_grecka, 'sałatka grecka').
  39. nazwa(tort, 'tort').
  40. nazwa(zupa_ogorkowa, 'zupa ogórkowa').
  41. nazwa(zupa_pomidorowa, 'zupa pomidorowa').
  42. nazwa(zupa_rybna, 'zupa rybna').
  43.  
  44. regula(X) :-
  45.     rodzaj(X).
  46. regula(ciasto).
  47. regula(kasza).
  48. regula(mieso).
  49. regula(ryba).
  50. regula(surowka).
  51. regula(zupa).
  52.  
  53. rodzaj(X) :-
  54.     nazwa(X, _).
  55.  
  56. zachodzi(buraczki) :-
  57.     ustal(surowka, tak),
  58.     ustal(czerwone, tak).
  59. zachodzi(chlodnik) :-
  60.     ustal(zupa, tak),
  61.     ustal(zimne, tak).
  62. zachodzi(ciasto) :-
  63.     ustal(miekkie, tak),
  64.     ustal(zimne, tak).
  65. zachodzi(coleslaw) :-
  66.     ustal(surowka, tak),
  67.     ustal(kolorowe, tak).
  68. zachodzi(flaki) :-
  69.     ustal(zupa, tak),
  70.     ustal(przezroczyste, tak),
  71.     ustal(szare, tak).
  72. zachodzi(karp_w_galarecie) :-
  73.     ustal(ryba, tak),
  74.     ustal(trzesie, tak).
  75. zachodzi(kasza) :-
  76.     ustal(sypkie, tak),
  77.     ustal(kulki, tak).
  78. zachodzi(kasza_gryczana) :-
  79.     ustal(kasza, tak),
  80.     ustal(brazowe, tak).
  81. zachodzi(kuskus) :-
  82.     ustal(kasza, tak),
  83.     ustal(zolte, tak).
  84. zachodzi(makaron) :-
  85.     ustal(sypkie, tak),
  86.     ustal(dlugie, tak).
  87. zachodzi(mielony) :-
  88.     ustal(mieso, tak),
  89.     ustal(plaskie, nie).
  90. zachodzi(mieso) :-
  91.     ustal(plyn, nie),
  92.     ustal(brazowe, tak).
  93. zachodzi(murzynek) :-
  94.     ustal(ciasto, tak),
  95.     ustal(brazowe, tak).
  96. zachodzi(rosol) :-
  97.     ustal(zupa, tak),
  98.     ustal(przezroczyste, tak),
  99.     ustal(biale, tak).
  100. zachodzi(ryba) :-
  101.     ustal(smierdzi, tak).
  102. zachodzi(ryba_smazona) :-
  103.     ustal(ryba, tak),
  104.     ustal(brazowe, tak).
  105. zachodzi(ryz) :-
  106.     ustal(sypkie, tak),
  107.     ustal(podlozne, tak).
  108. zachodzi(schab) :-
  109.     ustal(mieso, tak),
  110.     ustal(plaskie, tak).
  111. zachodzi(salatka_grecka) :-
  112.     ustal(surowka, tak),
  113.     ustal(biale, tak).
  114. zachodzi(surowka) :-
  115.     ustal(mieso, nie),
  116.     ustal(ryba, nie),
  117.     ustal(ciasto, nie),
  118.     ustal(zupa, nie),
  119.     ustal(sypkie, nie).
  120. zachodzi(tort) :-
  121.     ustal(ciasto, tak),
  122.     ustal(ladne, tak).
  123. zachodzi(zupa) :-
  124.     ustal(plyn, tak).
  125. zachodzi(zupa_ogorkowa) :-
  126.     ustal(zupa, tak),
  127.     ustal(zielone, tak).
  128. zachodzi(zupa_pomidorowa) :-
  129.     ustal(zupa, tak),
  130.     ustal(czerwone, tak).
  131. zachodzi(zupa_rybna) :-
  132.     ustal(zupa, tak),
  133.     ustal(ryba, tak).
  134.  
  135. jednoz([biale, brazowe, czerwone, kolorowe, zolte, zielone, szare]).
  136. jednoz([zupa, mieso, sypkie, surowka]).
  137. jednoz([ryba, mieso, sypkie, surowka]).
  138. jednoz([chlodnik, flaki, rosol, zupa_ogorkowa, zupa_pomidorowa, zupa_rybna]).
  139. jednoz([schab, mielony]).
  140. jednoz([murzynek, tort]).
  141. jednoz([ryba_smazona, karp_w_galarecie]).
  142. jednoz([salatka_grecka, coleslaw, buraczki]).
  143. jednoz([makaron, ryz, kasza]).
  144. jednoz([kasza_gryczana, kuskus]).
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement