fork download
copy 
  1. parent('磯野藻屑源素太皆','磯野波平').
  2. parent('磯野藻屑源素太皆','磯野海平').
  3. parent('磯野藻屑源素太皆','波野なぎえ').
  4. parent('磯野波平','フグ田サザエ').
  5. parent('磯野波平','磯野カツオ').
  6. parent('磯野波平','磯野ワカメ').
  7. parent('磯野フネ','フグ田サザエ').
  8. parent('磯野フネ','磯野カツオ').
  9. parent('磯野フネ','磯野ワカメ').
  10. parent('フグ田サザエ','フグ田タラオ').
  11. parent('フグ田マスオ','フグ田タラオ').
  12. parent('フグ田入江','フグ田マスオ').
  13. parent('フグ田入江','フグ田サケオ').  % ← 追加（マスオとサケオは兄弟）
  14. parent('波野なぎえ','波野ノリスケ').
  15. parent('波野ノリスケ','波野イクラ').
  16. parent('波野タイ子','波野イクラ').
  17.  
  18. :- initialization(main).
  19.  
  20. main :-
  21.     parent(X,Y),
  22.     format('親: ~w, 子: ~w~n', [X,Y]),
  23.     fail.
  24. main.
  25.  
Success #stdin #stdout #stderr 0.02s 6880KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
親: 磯野藻屑源素太皆, 子: 磯野波平
親: 磯野藻屑源素太皆, 子: 磯野海平
親: 磯野藻屑源素太皆, 子: 波野なぎえ
親: 磯野波平, 子: フグ田サザエ
親: 磯野波平, 子: 磯野カツオ
親: 磯野波平, 子: 磯野ワカメ
親: 磯野フネ, 子: フグ田サザエ
親: 磯野フネ, 子: 磯野カツオ
親: 磯野フネ, 子: 磯野ワカメ
親: フグ田サザエ, 子: フグ田タラオ
親: フグ田マスオ, 子: フグ田タラオ
親: フグ田入江, 子: フグ田マスオ
親: フグ田入江, 子: フグ田サケオ
親: 波野なぎえ, 子: 波野ノリスケ
親: 波野ノリスケ, 子: 波野イクラ
親: 波野タイ子, 子: 波野イクラ
stderr
copy 
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? EOF: exit
https://ideone.com/MMoVJB
language:
Prolog (swi 7.6.4)
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!