このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/358
#  [1] 授業単元:プログラム 
#  [2] 問題文(含コード&リンク):humという名前の構造体を受け取り、そのメンバの中の年齢の値を1/7倍して 
#  返す関数を7humを完成させなさい。 
#   
% Prolog にとって構造体とは述語のことだ。それ以外にない。

hum(年齢,61).

'humという名前の構造体を受け取り、そのメンバの中の年齢の値を1/7倍して返す関数を7humを完成させなさい。'(X) :-
        humという名前の構造体を受け取り、そのメンバの中の年齢の値(年齢,_年齢),
        '1/7倍して返す関数を7humを完成させなさい。'(_年齢,X).

humという名前の構造体を受け取り、そのメンバの中の年齢の値(_年齢) :-
        hum(年齢,_年齢).

'1/7倍して返す関数を7humを完成させなさい。'(_年齢,X) :-
        X is _年齢 * 1 / 7.