このディレクトリの索引
#  
#  問題 14-13 ある文字列から特定の文字列に含まれる文字を削除するアルゴリズムを示せ。
#  
#  入門「データ構造とアルゴリズム」Narasimha Karumanchi著 黒川利明/木下哲也訳 オライリージャパン刊 p385 より
#  

'ある文字列から特定の文字列に含まれる文字を削除する'(_ある文字列,_特定の文字列,_特定の文字列に含まれる文字を削除した文字列) :-
        findall(_文字,(
                    ある文字列から(_ある文字列,_文字),
                    \+(特定の文字列に含まれる文字(_特定の文字列,_文字))),
                _特定の文字列に含まれる文字を削除した文字ならび),
        atomic_list_concat(_特定の文字列に含まれる文字を削除した文字ならび,_特定の文字列に含まれる文字を削除した文字列).

ある文字列から(_ある文字列,_文字) :-
        sub_atom(_ある文字列,_,1,_,_文字).

特定の文字列に含まれる文字を(_特定の文字列,_特定の文字列に含まれる文字) :-
        sub_atom(_特定の文字列,_,1,_,_特定の文字列に含まれる文字).