fork download
copy 
  1. man('Haakon VII').
  2. man('Olav V').
  3. man('Harald V').
  4. man('Haakon').
  5. woman('Martha').
  6. woman('Mette-Marit').
  7. woman('Maud').
  8. woman('Sonja').
  9. parent('Haakon VII','Olav V').
  10. parent('Maud','Olav V').
  11. parent('Olav V','Harald V').
  12. parent('Martha','Harald V').
  13. parent('Harald V','Haakon').
  14. parent('Sonja','Haakon').
  15. father(X,Y):- parent(X,Y), man(X).
  16. mother(X,Y):- parent(X,Y), woman(X).
Success #stdin #stdout 0.02s 6204KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/3p3r4
language:
Prolog (swi 7.6.4)
created:
14 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!