このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1308749241/607
#  [1]プログラミング言語 
#  [2]http:// codepad.org/2gG8qIOk 
#  [3.1]window 7 
#  [3.2]VC2008 
#  [3.3]C++ 
#  [4]7/14まで 
#  [5]よろしくお願い致します。 
# 
# 
#  100 100 0.123 0.345
#  100 110 0.256 -0.123
#  100 120 -0.351 0.112
#  ・・・・
#  などのようなテキストファイル(01.txt)がある。
#  これらを
#  100.1 100.3 0.123 0.345
#  100.3 109.9 0.256 -0.123
#  99.6 120.1 -0.351 0.112
#  ・・・・
#  のように 
#  3列目を1列目に加え、4列目を2列目に加えるようなプログラムを作成せよ。
#  (少数第一位まで四捨五入し、加える事)
#  なお、MFCでボタンを押したら、02.txtファイルが作成される程度の簡単なもので良い

'3列目を1列目に加え、4列目を2列目に加える(少数第一位まで四捨五入し、加える事)' :-
        get_split_lines('01.txt',[' '],LL),
        findall([_11,_22,_3,_4],(
                    append(_,[[_1,_2,_3,_4]|R],LL),
                    _11 is floor((_1 + _3) * 10) / 10,
                    _22 is floor((_2 + _4) * 10) / 10),
                LL2),
        出力する('02.txt',LL2).                    

出力する(_ファイル名,LL) :-
        open(_ファイル名,write,Outstream),
        append(_,[[_1,_2,_3,_4]|R],LL),
        writef(Outstream,'%t %t %t %t\n',[_1,_2,_3,_4]),
        R = [],
        close(Outstream).