fork download
copy 
  1. father(zeb, john_boy_sr).
  2. father(john_boy_sr, john_boy_jr).
  3.  
  4. ancestor( X, Y) :-
  5.     father( X,Y).
  6.  
  7. ancestor( X, Y) :-
  8.     father( X, Z), ancestor(Z, Y).
Success #stdin #stdout 0.02s 68352KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
GNU Prolog 1.3.1
By Daniel Diaz
Copyright (C) 1999-2009 Daniel Diaz
https://ideone.com/f27Io
language:
Prolog (gprolog 1.4.5)
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!