このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/84
#  [1] プログラミング演習  
#  [2] 問題文  
#  構造体を引数と戻り値とする関数を作成せよ。なお、作成する関数は 
#  引数を四則演算して戻すものとする。 
#  
'構造体を引数と戻り値とする関数を作成せよ。なお、作成する関数は引数を四則演算して戻すものとする。' :-
        write('項1と項2をカンマ区切りで入力してください : '),
        get_split_line(Line,[','],[_項1,_項2]),
        _引数 = (_項1,_項2),      
        '構造体を引数と戻り値とする関数'(_引数,_演算結果).

'構造体を引数と戻り値とする関数'((_項,_項2),(_和,_差,_積,_商)) :-
        _和 is _項 + _項2,
        _差 is _項 - _項2,
        _積 is _項 * _項2,
        _商 is _項 / _項2.