このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301067486/418
#  テキスト中の行頭 ; という記号を置き換えようしています 
#  '^\;'とかいたらマッチしません 
#   
#  次に ^\;.* と書いたらマッチするものの 
#  行頭に;がある行の一列すべてがマッチしてしまいます 
#   
#  一体どう書けばよいのでしょうか? 
# 
# 

'テキスト中の行頭 ; という記号を置き換えようしています'(_文字列,_置換文字列,_置換された文字列) :-
        atom_chars(_文字列,Chars),
        atom_chars(_置換文字列,Chars2),
        'ならびの行頭位置にある ; という記号を置換'(Chars,Chars2,L),
        atom_chars(_置換された文字列,Chars3).

'ならびの行頭位置にある ; という記号を置換'([';'|R1],Chars2,L) :-
        append(Chars2,R1,L),!.
'ならびの行頭位置にある ; という記号を置換'(Chars1,Chars2,L) :-
        'ならびの行頭位置にある ; という記号を置換のニ'(Chars1,Chars2,L).

'ならびの行頭位置にある ; という記号を置換のニ'([],_,[]) :- !.
'ならびの行頭位置にある ; という記号を置換のニ'(['\n',';'|R1],Chars2,L) :-
        'ならびの行頭位置にある ; という記号を置換のニ'(R1,Chars,R2),
        append(Chars2,R2,L),!.
'ならびの行頭位置にある ; という記号を置換のニ'([A|R1],Chars2,[A|R2]) :-
        'ならびの行頭位置にある ; という記号を置換のニ'(R1,Chars,R2).