このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/690
#  [1] 授業単元: 
#  プログラミング基礎 
#  [2] 問題文(含コード&リンク): 
#  キーボードから実数配列a[N][N]の各要素に値を入力し、すべての要素の総和を求めるプログラムを作成せよ。 
#  ただし、総和を求める部分はmain関数と別の関数を作ること。 
# 

program :-
    user_parameters([A]),
    atom_to_term(A,N,_),
    write_formatted('一行にカンマ区切りで%t個、%t行の浮動小数点数を入力してください(eofはctrl-dを入力)\n',[N,N]),
    'キーボードから実数配列a[N][N]の各要素に値を入力し、すべての要素の総和を求める'(_総和),
    write_formatted('総和は%tです\n',[_総和]).

'キーボードから実数配列a[N][N]の各要素に値を入力し、すべての要素の総和を求める'(_総和)  :-
    get_split_lines(user_input,[','],L),
    findsum(S1,(member(Line,L),findsum(Line,S1)),_総和).