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