このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1354070278/125
#  [1] 授業単元:c言語 関数&配列 
#  [2] 問題文 関数配列の問題です。 
#  http://www.dotup.org/uploda/www.dotup.org3703015.pdf 
#  

ベクトルの内積(_ベクトル_1,_ベクトル_2,_ベクトルの内積) :-
        findsum(X,(
                    nth1(_nth1,_ベクトル_1,[X_1]),
                    nth1(_nth1,_ベクトル_2,[X_2]),
                    X is X_1 * X_2),
                _ベクトルの内積).


findsum(_選択項,_項,_合計値) :-
        findall(_選択項,_項,_値ならび),
        sum(_値ならび,_合計値).

sum([],0).
sum([A|R],S) :-
        sum(R,S1),
        S is A + S1.