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