fork download
copy 
  1. parent('磯野藻屑源素太皆','磯野波平').
  2. parent('磯野藻屑源素太皆','磯野海平').
  3. parent('磯野藻屑源素太皆','波野なぎえ').
  4.  
  5. parent('磯野波平','フグ田サザエ').
  6. parent('磯野波平','磯野カツオ').
  7. parent('磯野波平','磯野ワカメ').
  8.  
  9. parent('磯野フネ','フグ田サザエ').
  10. parent('磯野フネ','磯野カツオ').
  11. parent('磯野フネ','磯野ワカメ').
  12.  
  13. parent('フグ田サザエ','フグ田タラオ').
  14. parent('フグ田マスオ','フグ田タラオ').
  15.  
  16. % ↓↓↓ ここが今回の課題で追加する部分 ↓↓↓
  17. parent('フグ田入江','フグ田マスオ').
  18. parent('フグ田入江','フグ田サケオ').
  19.  
  20. parent('波野なぎえ','波野ノリスケ').
  21. parent('波野ノリスケ','波野イクラ').
  22. parent('波野タイ子','波野イクラ').
  23.  
  24. % 起動時に実行
  25. :- initialization(main).
  26.  
  27. main :-
  28. parent(X, Y),
  29. format('親: ~w, 子: ~w~n', [X, Y]),
  30. fail.
  31. main.
Success #stdin #stdout 0.01s 5300KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
親: 磯野藻屑源素太皆, 子: 磯野波平
親: 磯野藻屑源素太皆, 子: 磯野海平
親: 磯野藻屑源素太皆, 子: 波野なぎえ
親: 磯野波平, 子: フグ田サザエ
親: 磯野波平, 子: 磯野カツオ
親: 磯野波平, 子: 磯野ワカメ
親: 磯野フネ, 子: フグ田サザエ
親: 磯野フネ, 子: 磯野カツオ
親: 磯野フネ, 子: 磯野ワカメ
親: フグ田サザエ, 子: フグ田タラオ
親: フグ田マスオ, 子: フグ田タラオ
親: フグ田入江, 子: フグ田マスオ
親: フグ田入江, 子: フグ田サケオ
親: 波野なぎえ, 子: 波野ノリスケ
親: 波野ノリスケ, 子: 波野イクラ
親: 波野タイ子, 子: 波野イクラ
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
| ?-
https://ideone.com/dVHcWf
language:
Prolog (gprolog 1.4.5)
created:
6 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!