このディレクトリの索引
#  twitter_by_@ketcho0o_20131129
#  
#  excelで仕事割出すやつ作ったけど、javaで作った方がよかったかなあ。
#  むしろバンド名質問してそれに属する人達を除いたセクションメンバーを表示するってことでprologで作れたらかっこいいね。


セクションメンバー(ビートルズ,'ジョン・レノン').
セクションメンバー(ビートルズ,'ポール・マッカートニー').
セクションメンバー(ビートルズ,'ジョージ・ハリスン').
セクションメンバー(ビートルズ,'リンゴ・スター').
セクションメンバー(クラッシュ,'ジョー・ストラマー').
セクションメンバー(クラッシュ,'ミック・ジョーンズ').
セクションメンバー(クラッシュ,'ポール・シムノン').
セクションメンバー(クラッシュ,'トッパー・ヒードン').


'バンド名質問してそれに属する人達を除いたセクションメンバーを表示する' :-
        write('バンド名は '),
        read(_バンド名),
        forall(それに属する人達を除いたセクションメンバーを(_バンド名,_セクション,_メンバー),表示する(_セクション,_メンバー)).


それに属する人達を除いたセクションメンバーを(_バンド名,_セクション,_メンバー) :-
        セクションメンバー(_セクション,_メンバー),
        \+(_セクション = _バンド名).

表示する(_セクション,_メンバー) :-
        writef('%t,%t\n',[_セクション,_メンバー]).


% 参考