fork download
copy 
  1. % Medical Diagnostic System
  2.  
  3. diagnose(fever, cough, flu).
  4. diagnose(cough, sneezing, common_cold).
  5. diagnose(fever, chills, malaria).
  6. diagnose(vomiting, diarrhea, food_poisoning).
  7.  
  8. go :-
  9.     write('Enter first symptom: '),
  10.     read(S1),
  11.     write('Enter second symptom: '),
  12.     read(S2),
  13.     diagnose(S1, S2, Disease),
  14.     write('Possible disease: '),
  15.     write(Disease),
  16.     nl.
Success #stdin #stdout 0.01s 5324KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
GNU Prolog 1.4.5 (64 bits)
Compiled Feb  5 2017, 10:30:08 with gcc
By Daniel Diaz
Copyright (C) 1999-2016 Daniel Diaz
| ?-
https://ideone.com/CdU3Fk
language:
Prolog (gprolog 1.4.5)
created:
4 days 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!