fork download
copy 
  1. parent('磯野藻屑源素太皆','磯野波平').
  2. parent('磯野藻屑源素太皆','磯野海平').
  3. parent('磯野藻屑源素太皆','波野なぎえ').
  4.  
  5. parent('磯野波平','フグ田サザエ').
  6. parent('磯野波平','磯野カツオ').
  7. parent('磯野波平','磯野ワカメ').
  8.  
  9. parent('磯野フネ','フグ田サザエ').
  10. parent('磯野フネ','磯野カツオ').
  11. parent('磯野フネ','磯野ワカメ').
  12.  
  13. parent('フグ田サザエ','フグ田タラオ').
  14. parent('フグ田マスオ','フグ田タラオ').
  15.  
  16. parent('フグ田入江','フグ田マスオ').
  17. parent('フグ田入江','フグ田サケオ').
  18.  
  19. parent('波野なぎえ','波野ノリスケ').
  20. parent('波野ノリスケ','波野イクラ').
  21. parent('波野タイ子','波野イクラ').
  22.  
  23. % 起動時に実行
  24. :- initialization(main).
  25.  
  26. main :-
  27.     parent(X, Y),
  28.     format('親: ~w, 子: ~w~n', [X, Y]),
  29.     fail.
  30. main.
  31.  
Success #stdin #stdout 0.01s 5328KB
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/1PKVM2
language:
Prolog (gprolog 1.4.5)
created:
5 hours 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!