このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1322562648/444
#  [1] 授業単元: アルゴリズム(構造体・ポインタ) 
#  [2] 問題文(含コード&リンク): 
#  メンバとして映画のタイトル(文字列)と公開年(int 
#  型整数)をもつ構造体movie を宣言し,movie 型構造 
#  体へのポインタmv と映画タイトルの文字列str を引数 
#  としてタイトルを書きかえる関数 
#  void set_title(struct movie *mv, char str[]) 
#  および,movie 型構造体へのポインタmv と公開年y を 
#  引数として公開年を書きかえる関数 
#  void set_year(struct movie *mv, int y) 
#  を作成しプログラムを完成させる 
#   
#   実行例. 
#    タイトル:HAYABUSA 公開年:2011 
#    データを書きかえました。 
#   タイトル:October Sky 公開年:1999 
#  

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

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