このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1274827528/595
#  [1] 授業単元:プログラミング  
#  [2] 問題文(含コード&リンク): 
#  以下のようにmain関数を定義し、mainの引数を合計するプログラムsumを作成せよ。ただし、引数の数は未定であり、実行時に決定されるものとする。 
#  int main(int argc, char *argv[])  
#  

sum(Sum) :-
        user_parameters(L),
        findall(N,(member(A,L),atom_to_term(A,N,_)),L2),
        sum_2(L2,Sum).

sum_2([],0) :- !.
sum_2([N|R],X) :- sum_2(R,Y),X is N + Y.