fork download
copy 
  1. :- set_prolog_flag(verbose,silent).
  2. :- prompt(_, '').
  3. :- use_module(library(readutil)).
  4.  
  5. main:-
  6. 	process,
  7. 	halt.
  8.  
  9. process:-
  10. 	/* your code goes here */
  11. 	symptom(amit,fever).
  12.     symptom(amit,rash).
  13.     symptom(amit,headache).
  14.     symptom(amit,runn_nose).
  15.  
  16.     symptom(kaushal,chills).
  17.     symptom(kaushal,fever).
  18.     symptom(kaushal,hedache).
  19.  
  20.     symptom(dipen,runny_nose).
  21.     symptom(dipen,rash).
  22.     symptom(dipen,flu).
  23.  
  24.  
  25.     hypothesis(Patient,measels):-
  26.         symptom(Patient,fever),
  27.         symptom(Patient,cough),
  28.         symptom(Patient,conjunctivitis),
  29.         symptom(Patient,rash).
  30.  
  31.     hypothesis(Patient,german_measles) :-
  32.         symptom(Patient,fever),
  33.         symptom(Patient,headache),
  34.         symptom(Patient,runny_nose),
  35.         symptom(Patient,rash).
  36.  
  37.     hypothesis(Patient,flu) :-
  38.         symptom(Patient,fever),
  39.         symptom(Patient,headache),
  40.         symptom(Patient,body_ache),
  41.         symptom(Patient,chills).
  42.  
  43.     hypothesis(Patient,common_cold) :-
  44.         symptom(Patient,headache),
  45.         symptom(Patient,sneezing),
  46.         symptom(Patient,sore_throat),
  47.         symptom(Patient,chills),
  48.         symptom(Patient,runny_nose).
  49.  
  50.     hypothesis(Patient,mumps) :-
  51.         symptom(Patient,fever),
  52.         symptom(Patient,swollen_glands).
  53.  
  54.     hypothesis(Patient,chicken_pox) :-
  55.         symptom(Patient,fever),
  56.         symptom(Patient,rash),
  57.         symptom(Patient,body_ache),
  58.         symptom(Patient,chills).
  59. 	true.
  60.  
  61. :- main.
Success #stdin #stdout #stderr 0.09s 32936KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
ERROR: /home/jT5CrA/prog:59:
	No permission to modify static procedure `true/0'
Warning: /home/jT5CrA/prog:61:
	Goal (directive) failed: user:main
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? EOF: exit
https://ideone.com/wF5wnN
language:
Prolog (swi 7.6.4)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!