このディレクトリの索引
#  abcdefgfedcba という文字列から
#  defという文字列を消すこと出来るのですが、
#  def以外を消すにはどうすればいいのでしょうか?

'abcdefgfedcba という文字列からdef以外を消す'(_文字列,_削除された文字列) :-
        sub_atom(_文字列,S,Len,R,def),
        S2 is S + Len,
        sub_atom(_文字列,S2,R,0,S3),
        'abcdefgfedcba という文字列からdef以外を消す'(S3,_後半の削除された文字列),
        concat_atom([def,_後半の削除された文字列],_削除された文字列),!.
'abcdefgfedcba という文字列からdef以外を消す'(_文字列,'').