このディレクトリの索引
http://toro.2ch.net/test/read.cgi/db/1316769778/456
#  テーブル メニュー 
#  メニュー番号, メニュー 
#  1 ステーキ 
#  2 ハンバーガー 
#  3 ビーフシチュー 
#   
#  テーブル 注文 
#  社員番号,名前,第1希望,第2希望,第3希望 
#  1 鈴木 3 1 2 
#  2 川本 1 2 3 
#  3 山田 1 3 2 
#   
#  ここから 
#  1 鈴木 ビーフシチュー ステーキ ハンバーガー 
#  と出力するにはどうすればいいでしょうか。 
#   
#  第1希望だけなら where メニュー.メニュー番号=注文.第1希望 
#  で出るのですが。 
# 
# 

'社員の第1希望、第2希望、第3希望のメニューを一行で表示する' :-
        '社員番号・名前・第1希望,第2希望,第3希望のメニュー'(_社員番号,_名前,_第1希望のメニュー,_第2希望のメニュー,_第3希望のメニュー),
        writef('%t %t %t %t %t\n',[_社員番号,_名前,_第1希望のメニュー,_第2希望のメニュー,_第3希望のメニュー]),
        fail.
'社員の第1希望、第2希望、第3希望のメニューを一行で表示する'.

'社員番号・名前・第1希望,第2希望,第3希望のメニュー'(_社員番号,_名前,_第1希望,_第2希望,_第3希望) :-
        注文(_社員番号,_名前,_第1希望,_第2希望,_第3希望),
        メニュー(_第1希望,_第1希望のメニュー),
        メニュー(_第2希望,_第2希望のメニュー),
        メニュー(_第3希望,_第3希望のメニュー).