このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/937
#  【質問テンプレ】  
#  [1] 授業単元:画像処理学  
#  [2] 問題文(含コード&リンク):  
#    指定されたエクセルのCSVファイルの中にあるデータを読み込み  
#    それぞれのデータの各列に列の番号の値を加えて  
#    別のCSVファイルとして出力せよ.  

指定されたエクセルのCSVファイルの中にあるデータを読み込みそれぞれのデータの各列に列の番号の値を加えて別のCSVファイルとして出力せよ(_指定されたCSVファイル,_別のCSVファイル) :-
          get_split_lines(_指定されたCSVファイル,[' ',','],LL),
          それぞれのデータの各列に列の番号の値を加えて(LL,LL2),
          put_lines(_別のCSVファイル,LL2).

それぞれのデータの各列に列の番号の値を加えて([],[]) :- !.
それぞれのデータの各列に列の番号の値を加えて([L1|R1],[L2|R2]) :-
        findall(_加算された値,(
                   append(L0,[_値|_],L1),
                   length([_|L0],_列の番号),
                   _加算された値 is _値 + _列の番号),
                L2),
        それぞれのデータの各列に列の番号の値を加えて(R1,R2).