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('波野タイ子', '波野イクラ').
Success #stdin #stdout 0.01s 5288KB
stdin
parent(X, Y), format('親: ~w, 子: ~w~n', [X,Y]), fail.
stdout
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
| ?- 親: 磯野藻屑源素太皆, 子: 磯野波平
親: 磯野藻屑源素太皆, 子: 磯野海平
親: 磯野藻屑源素太皆, 子: 波野なぎえ
親: 磯野波平, 子: フグ田サザエ
親: 磯野波平, 子: 磯野カツオ
親: 磯野波平, 子: 磯野ワカメ
親: 磯野フネ, 子: フグ田サザエ
親: 磯野フネ, 子: 磯野カツオ
親: 磯野フネ, 子: 磯野ワカメ
親: フグ田サザエ, 子: フグ田タラオ
親: フグ田マスオ, 子: フグ田タラオ
親: フグ田入江, 子: フグ田マスオ
親: フグ田入江, 子: フグ田サケオ
親: 波野なぎえ, 子: 波野ノリスケ
親: 波野ノリスケ, 子: 波野イクラ
親: 波野タイ子, 子: 波野イクラ

no
| ?-