このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/db/1299305530/860
#  09/01 りんご 
#  09/02 りんご  
#  09/02 みかん 
#  09/03 りんご 
#  09/03 みかん 
#  09/03 バナナ 
#  ・・・ 
#   
#  このようなテーブルからりんごとみかんとバナナの3つ 
#  全てがある日付を取り出す構文はどうすれば出来ますか? 
# 
# 

'09/01 りんご\n09/02 りんご\n09/02 みかん\n09/03 りんご\n09/03 みかん\n09/03 バナナ\n・・・ このようなテーブルからりんごとみかんとバナナの3つ全てがある日付を取り出す'(_日付) :-
        findsetof(_日付,(
                    テーブル(_日付,_)),
                  L1),
        'りんごとみかんとバナナの3つ全てがある日付'(L1,_日付).

'りんごとみかんとバナナの3つ全てがある'([_日付|R],_日付) :-
        'りんごとみかんとバナナの3つ全てがある'(_日付).
'りんごとみかんとバナナの3つ全てがある'([_|R],_日付) :-
        'りんごとみかんとバナナの3つ全てがある'(R,_日付).

'りんごとみかんとバナナの3つ全てがある'(_日付) :-
        テーブル(_日付,りんご),
        テーブル(_日付,みかん),
        テーブル(_日付,バナナ),!.