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.     predicates
  11.  
  12.     male(symbol).
  13.     female(symbol).
  14.     father(symbol,symbol).
  15.     husband(symbol,symbol).
  16.     brother(symbol,symbol).
  17.     sister(symbol,symbol).
  18.     listbrothers(symbol).
  19.     listsisters(symbol).
  20.     mother(symbol,symbol).
  21.     grandfather(symbol).
  22.     grandmother(symbol).
  23.     uncle(symbol).
  24.     aunt(symbol).
  25.     cousin(symbol).
  26.     listgrandsons(symbol).
  27.     listgranddaughters(symbol).
  28.     printmenu.
  29.     action(integer).
  30.     repeat.
  31.  
  32.  
  33.     clauses
  34.  
  35.     male(mukesh).
  36.     male(alok).
  37.     male(navlok).
  38.     male(krishnan).
  39.     male(vidhi).
  40.  
  41.     female(meenakshi).
  42.     female(shweta).
  43.     female(nidhi).
  44.  
  45.     father(mukesh,alok).
  46.     father(mukesh,navlok).
  47.     father(vidhi,mukesh).
  48.  
  49.     husband(mukesh,meenakshi).
  50.     husband(vidhi,nidhi).
  51.     husband(krishnan,shweta).
  52.  
  53.     mother(X,Y):- husband(Z,X),
  54.     father(Z,Y).
  55.  
  56.     brother(X,Y):- father(Z,X),
  57.     father(Z,Y),
  58.     X<>Y,
  59.     male(X).
  60.  
  61.     sister(X,Y):- father(Z,X),
  62.     father(Z,Y),
  63.     X<>Y,
  64.     female(X).
  65.  
  66.     listbrothers(X) :- brother(Z,X),
  67.     write(Z).
  68.  
  69.     listsisters(X):- sister(Z,X),
  70.     write(Z).
  71.  
  72.     grandfather(X):- father(Y, Z),
  73.     father(Z,X),
  74.     write(Y, " is the grandfather of ",X,"\n").
  75.  
  76.     grandmother(X):- husband(Z,X),
  77.     father(Z,V),
  78.     father(V,Y),
  79.     write(Y, " is the grandmother of ",X,"\n").
  80.  
  81.  
  82.     listgrandsons(X):- father(X,Z),
  83.     father(Z,Y),
  84.     male(Y),
  85.     write(Y,"\n"),
  86.     fail.
  87.  
  88.     listgrandsons(X):- husband(Y,X),
  89.     father(Y,V),
  90.     father(V,Z),
  91.     male(Z),
  92.     write(Z,"\n"),
  93.     fail.
  94.  
  95.     listgranddaughters(X):- father(X,Z),
  96.     father(Z,Y),
  97.     female(Y),
  98.     write(Y,"\n"),
  99.     fail.
  100.  
  101.     listgranddaughters(X):- husband(Y,X),
  102.     father(Y,V),
  103.     father(V,Z),
  104.     female(Z),
  105.     write(Z,"\n"),
  106.     fail.
  107.  
  108.     uncle(X):- brother(Z,Y),
  109.     father(Z,X),
  110.     male(Y),
  111.     write(Y,"\n"),
  112.     fail.
  113.  
  114.     aunt(X):- husband(Z,Y),
  115.     brother(Z,V),
  116.     father(V,X),
  117.     write(Y,"\n"),
  118.     fail.
  119.  
  120.     cousin(X):- father(Z,X),
  121.     father(V,Y),
  122.     Z<>V,
  123.     brother(V,Z),
  124.     write(Y,"\n").
  125.  
  126.  
  127.     repeat.
  128.     repeat:- repeat.
  129.  
  130.     action(1):- write("\nEnter name of person whose father is to be found : "),
  131.     readln(X),
  132.     write("\n"),
  133.     write("Father of ",X," is:"),
  134.     father(Z,X),
  135.     write(Z,"\n"),
  136.     fail.
  137.  
  138.     action(2):- write("\nEnter name of person whose mother is to be found : "),
  139.     readln(X),
  140.     write("\n"),
  141.     write("Mother of ",X," is:"),
  142.     mother(Z,X),
  143.     write(Z,"\n"),
  144.     fail.
  145.  
  146.     action(3):- write("\nEnter name of person whose brothers are to be found : "),
  147.     readln(X),
  148.     write("\n"),
  149.     write("Brothers of ",X," are:\n"),
  150.     listbrothers(X),
  151.     write("\n"),
  152.     fail.
  153.  
  154.     action(4):- write("\nEnter name of person whose sisters are to be found : "),
  155.     readln(X),
  156.     write("\n"),
  157.     write("Sisters of ",X," are:\n"),
  158.     listsisters(X),
  159.     write("\n"),
  160.     fail.
  161.  
  162.     action(5):- write("\nEnter name of person whose grandsons are to be found : "),
  163.     readln(X),
  164.     write("\n"),
  165.     write("Grandsons of ",X," are:\n"),
  166.     listgrandsons(X),
  167.     write("\n"),
  168.     fail.
  169.  
  170.  
  171.     action(6):- write("\nEnter name of person whose granddaughters are to be found : "),
  172.     readln(X),
  173.     write("\n"),
  174.     write("Granddaughters of ",X," are:\n"),
  175.     listgranddaughters(X),
  176.     write("\n"),
  177.     fail.
  178.  
  179.     action(7):- write("\nEnter name of person whose uncles are to be found : "),
  180.     readln(X),
  181.     write("\n"),
  182.     write("Uncles of ",X," are:\n"),
  183.     uncle(X),
  184.     write("\n"),
  185.     fail.
  186.     action(8):- write("\nEnter name of person whose aunties are to be found : "),
  187.     readln(X),
  188.     write("\n"),
  189.     write("Aunties of ",X," are:\n"),
  190.     aunt(X),
  191.     write("\n"),
  192.     fail.
  193.  
  194.  
  195.     action(9):- write("\nEnter name of person whose cousins are to be found : "),
  196.     readln(X),
  197.     write("\n"),
  198.     write("Cousins of ",X," are:\n"),
  199.     cousin(X),
  200.     write("\n"),
  201.     fail.
  202.  
  203.     action(0).
  204.  
  205.     printmenu :-
  206.     repeat,
  207.     write("\n1. Display Father of?\n"),
  208.     write("2. Display Mother of?\n"),
  209.     write("3. List all brothers of?\n"),
  210.     write("4. List all sisters of?\n"),
  211.     write("5. List all grandson of?\n"),
  212.     write("6. List all granddaughter of?\n"),
  213.     write("7. List all uncles of?\n"),
  214.     write("8. List all aunty of?\n"),
  215.     write("9. list all cousins of?\n"),
  216.     write("0. exit\n"),
  217.     write("Enter your choice : "),
  218.     readInt(Choice),
  219.     action(Choice),
  220.     write("\n"),
  221.     repeat.
  222.  
  223.     goal
  224.     makewindow(1,2,3,"Family Tree",0,0,25,80),
  225.     printmenu.
  226.  
  227.     true.
  228.  
  229.     :- main.
  230.  
Success #stdin #stdout #stderr 0.05s 7124KB
comments (?)
stdin
copy 
1
alok
stdout
copy 
Standard output is empty
stderr
copy 
ERROR: /home/KhMVQS/prog:12:3: Syntax error: Operator expected
ERROR: /home/KhMVQS/prog:30:
	No permission to modify static procedure `repeat/0'
ERROR: /home/KhMVQS/prog:35:3: Syntax error: Operator expected
Warning: /home/KhMVQS/prog:41:
	Clauses of female/1 are not together in the source-file
	  Earlier definition at /home/KhMVQS/prog:13
	  Current predicate: male/1
	  Use :- discontiguous female/1. to suppress this message
Warning: /home/KhMVQS/prog:45:
	Clauses of father/2 are not together in the source-file
	  Earlier definition at /home/KhMVQS/prog:14
	  Current predicate: female/1
	  Use :- discontiguous father/2. to suppress this message
Warning: /home/KhMVQS/prog:49:
	Clauses of husband/2 are not together in the source-file
	  Earlier definition at /home/KhMVQS/prog:15
	  Current predicate: father/2
	  Use :- discontiguous husband/2. to suppress this message
Warning: /home/KhMVQS/prog:53:
	Clauses of mother/2 are not together in the source-file
	  Earlier definition at /home/KhMVQS/prog:20
	  Current predicate: husband/2
	  Use :- discontiguous mother/2. to suppress this message
ERROR: /home/KhMVQS/prog:58:4: Syntax error: Operator expected
ERROR: /home/KhMVQS/prog:63:4: Syntax error: Operator expected
Warning: /home/KhMVQS/prog:66:
	Clauses of listbrothers/1 are not together in the source-file
	  Earlier definition at /home/KhMVQS/prog:18
	  Current predicate: mother/2
	  Use :- discontiguous listbrothers/1. to suppress this message
Warning: /home/KhMVQS/prog:69:
	Clauses of listsisters/1 are not together in the source-file
	  Earlier definition at /home/KhMVQS/prog:19
	  Current predicate: listbrothers/1
	  Use :- discontiguous listsisters/1. to suppress this message
Warning: /home/KhMVQS/prog:72:
	Clauses of grandfather/1 are not together in the source-file
	  Earlier definition at /home/KhMVQS/prog:21
	  Current predicate: listsisters/1
	  Use :- discontiguous grandfather/1. to suppress this message
Warning: /home/KhMVQS/prog:76:
	Clauses of grandmother/1 are not together in the source-file
	  Earlier definition at /home/KhMVQS/prog:22
	  Current predicate: grandfather/1
	  Use :- discontiguous grandmother/1. to suppress this message
Warning: /home/KhMVQS/prog:82:
	Clauses of listgrandsons/1 are not together in the source-file
	  Earlier definition at /home/KhMVQS/prog:26
	  Current predicate: grandmother/1
	  Use :- discontiguous listgrandsons/1. to suppress this message
Warning: /home/KhMVQS/prog:95:
	Clauses of listgranddaughters/1 are not together in the source-file
	  Earlier definition at /home/KhMVQS/prog:27
	  Current predicate: listgrandsons/1
	  Use :- discontiguous listgranddaughters/1. to suppress this message
Warning: /home/KhMVQS/prog:108:
	Clauses of uncle/1 are not together in the source-file
	  Earlier definition at /home/KhMVQS/prog:23
	  Current predicate: listgranddaughters/1
	  Use :- discontiguous uncle/1. to suppress this message
Warning: /home/KhMVQS/prog:114:
	Clauses of aunt/1 are not together in the source-file
	  Earlier definition at /home/KhMVQS/prog:24
	  Current predicate: uncle/1
	  Use :- discontiguous aunt/1. to suppress this message
ERROR: /home/KhMVQS/prog:122:4: Syntax error: Operator expected
ERROR: /home/KhMVQS/prog:127:
	No permission to modify static procedure `repeat/0'
ERROR: /home/KhMVQS/prog:128:
	No permission to modify static procedure `repeat/0'
Warning: /home/KhMVQS/prog:130:
	Clauses of action/1 are not together in the source-file
	  Earlier definition at /home/KhMVQS/prog:29
	  Current predicate: aunt/1
	  Use :- discontiguous action/1. to suppress this message
Warning: /home/KhMVQS/prog:205:
	Clauses of printmenu/0 are not together in the source-file
	  Earlier definition at /home/KhMVQS/prog:28
	  Current predicate: action/1
	  Use :- discontiguous printmenu/0. to suppress this message
ERROR: /home/KhMVQS/prog:224:3: Syntax error: Operator expected
ERROR: /home/KhMVQS/prog:227:
	No permission to modify static procedure `true/0'
ERROR: /home/KhMVQS/prog:229:
	main/0: Undefined procedure: process/0
Warning: /home/KhMVQS/prog:229:
	Goal (directive) failed: user:main
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? EOF: exit
https://ideone.com/KYRos0
language:
Prolog (swi 7.6.4)
created:
1 day 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!