fork download
  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. :- initialization(main).
  18.  
  19. main :-
  20. parent(X,Y),
  21. format(' 親 : ~w, 子 : ~w~n', [X,Y]),
  22. main.
Success #stdin #stdout #stderr 0.04s 7008KB
stdin
1,3
stdout
 親 : 磯野藻屑源素太皆, 子 : 磯野波平
 親 : 磯野藻屑源素太皆, 子 : 磯野海平
 親 : 磯野藻屑源素太皆, 子 : 波野なぎえ
 親 : 磯野波平, 子 : フグ田サザエ
 親 : 磯 野 波 平, 子 : 磯 野 カ ツ オ
 親 : 磯 野 波 平, 子 : 磯 野 ワ カ メ
 親 : 磯野フネ, 子 : フグ田サザエ
 親 : 磯 野 フ ネ, 子 : 磯 野 カ ツ オ
 親 : 磯 野 フ ネ, 子 : 磯 野 ワ カ メ
 親 : フグ田サザエ, 子 : フグ田タラオ
 親 : フグ田マスオ, 子 : フグ田タラオ
 親 : フグ田入江, 子 : フグ田マスオ
 親 : 波野ノリスケ, 子 : 波野イクラ
 親 : 波野タイ子, 子 : 波野イクラ
stderr
ERROR: /home/2ZLOVa/prog:13:47: Syntax error: Operator expected
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? EOF: exit