このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1322562648/445
#  ../test/read.cgi/tech/1322562648/444 続き 
#  [5] その他の制限:以下の実行例のように,関数の動作を確認できるmain 
#  関数も作成すること.ただし,main 関数は以下のよう 
#  に動作するものを作成すること  
#  ・main 関数内で,タイトルをHAYABUSA,公開年 
#  を2011 として初期化したmovie 型構造体のオブジェクトmovie1 を宣言する 
#  ・以下の実行例のように,movie1 のメンバの値を表 
#  示した後,関数set_title と関数set_year を用 
#  いて別のタイトルと公開年の値に変更する.変更す 
#  るタイトルと公開年は適当な値を用いてよい(ユー 
#  ザに入力させる必要はない 
#  ・その後もう一度movie1 のメンバの値を表示して終 
#  了する. 
#  お願いします 
# 
# 

program :-
        main.

main :-
        shs('uuidgen',[_id]),
        asserta(映画(_id,タイトル('HAYABUSA'),公開年(1911))),
        タイトルを書き換える(_id,'隼'),
        公開年を書き換える(_id,2011).

タイトルを書き換える(_id,_タイトル) :-
        retract(映画(_id,タイトル(_),公開年(_公開年))),
        asserta(映画(_id,タイトル(_タイトル),公開年(_公開年))),!.

公開年を書き換える(_id,_公開年) :-
        retract(映画(_id,タイトル(_タイトル),公開年(_))),
        asserta(映画(_id,タイトル(_タイトル),公開年(_公開年))),!.