このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1307166756/885
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#  
#  file1を読み込み、特定の文字c を削除し、file2に書き込むファイル、ensyu06.cを作成せよ 
#  erase_char( ”file1”, ”file2”, ’c’ ) ; 
#  

'file1を読み込み、特定の文字c を削除し、file2に書き込む' :-
        file1を読み込み(Chars),
        '特定の文字c を削除し'(Chars,Chars2),
        'file2に書き込む'(Chars).

file1を読み込み(Lines) :-
        get_lines(file1,Lines).

'特定の文字c を削除し'([],[]) :- !.
'特定の文字c を削除し'([c|R1],R2) :- !.
        '特定の文字c を削除し'(R1,R2),!.
'特定の文字c を削除し'([A|R1],[A|R2]) :-
        '特定の文字c を削除し'(R1,R2).

file2に書き込む(Chars) :-
        open(file2,write,Outstream),
        concat_atom(Chars,S),
        writef('%t',[S]),
        close(Outstream),!.