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

main :-
        利用者引数ならび(_利用者引数ならび),
        findall(_数値,(
                    member(_数値文字列,_利用者引数ならび),
                    atom_number(_数値文字列,_数値)),
                _数値ならび),
        sum(_数値ならび,_合計),
        writef('%t\n',[_合計]).

sum([],0).
sum([_数値|R],_合計) :-
        sum(R,_合計_1),
        _合計 is _数値 + _合計_1.

利用者引数ならび(_利用者引数ならび) :-
        current_prolog_flag(argv, _コマンド引数ならび),
        append(_, [--|_利用者引数ならび], _コマンド引数ならび).


%  
%  # swipl --quiet -f c161_907.html -g main -- 33.0 25.1 38.4
%  96.5
%