このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1322562648/441
#  [1] 数値解析 
#  [2]  
#  123   456   789.012   345.678 
#  901   234   567.890   123.456 
#  789   12    345.678   901.234 
#  567   890   123.456   789.012 
#  ・・・ 
#  のような適当な値のテキストファイル(q.txt)があり(50×4)、これらのうち3列目と4列目でそれぞれの差を取り、 
#  以下のような新しいテキストファイル(a.txt)に出力せよ。 
#  -221.122   -222.222 
#  -222.212   777.778 
#  -222.222   -112.222 
#  ・・・ 
#  

'テキストファイル(q.txt)があり(50×4)、これらのうち3列目と4列目でそれぞれの差を取り、以下のような新しいテキストファイル(a.txt)に出力せよ。'
        get_split_lines('q.txt',[' ','\t'],LL),
        これらのうち3列目と4列目でそれぞれの差を取り(LL,LL1),
        '新しいテキスト(a.txt)に出力する'(LL1).

これらのうち3列目と4列目でそれぞれの差を取り(LL,LL1) :-
        findall([_差1,_差2],(
                    append(_,[[_,_,A1,B1|_],[_,_,A2,B2|_]|_],LL),
                    _差1 is abs(A2 - A1),
                    _差2 is abs(B2 - B1)),
                LL1).

'新しいテキスト(a.txt)に出力する'(LL1) :-
        open('a.txt',write,Outstream),
        append(_,[[A,B]|R],LL1),
        writef(Outstream,'%8l   %8l\n',[A,B]),
        R = [],
        close(Outstream).