このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1307166756/264
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#  ファイルlist0602_03.txtを読み込み、1行30文字に整形してファイル出力するプログラムkadai03.cを作成せよ。 
#  

'ファイルlist0602_03.txtを読み込み、1行30文字に整形してファイル出力する'(_出力ファイル) :-
        'ファイルlist0602_03.txtを読み込み'(Chars),
        '1行30文字に整形して'(Chars,L),
        ファイル出力する(_ファイル,L),!.

'ファイルlist0602_03.txtを読み込み'(Chars) :-
        get_chars('list0602_03.txt',Chars).

'1行30文字に整形して'([],[]) :- !.
'1行30文字に整形して'(Chars,[S|R2]) :-
        length(L0,30),
        append(L0,R1,Chars),
        concat_atom(L0,S),
        '1行30文字に整形して'(R1,R2),!.
'1行30文字に整形して'(L,[S]) :-
        concat_atom(L,S).

ファイル出力する(_ファイル,L) :-
        open(_ファイル,write,Outstream),
        append(_,[Line|R],L),
        writef(Outstream,'%t\n',[Line]),
        R = [],
        close(Outstream),!.