このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1325685876/975
#  [1] 授業単元:プログラミング  
#  [2] 問題文(含コード&リンク):2つの文字列(s[1][3]={"abo"},t[3][1]={"b","c","a"})の中で同じ文字があったらその文字を表示し、 
#                   なかったら同じ文字はないことを表示するプログラムを作れ。  
#  

'2つの文字列(s[1][3]={"abo"},t[3][1]={"b","c","a"})の中で同じ文字があったらその文字を表示し、なかったら同じ文字はないことを表示する' :-
        sub_atom('abo',_,1,_,A),
        member(A,[b,c,a]).
'2つの文字列(s[1][3]={"abo"},t[3][1]={"b","c","a"})の中で同じ文字があったらその文字を表示し、なかったら同じ文字はないことを表示する' :-
        \+((sub_atom('abo',_,1,_,A),member(A,[b,c,a]))),
        writef('%tと%tには同じ文字はありません\n',['abo',[b,c,a]]).