09/06/15 19:01:53
>>172
% Prolog
整数１～１０までの累計(X) :-
sum(0,1,10,X).
sum(_空リストの時の値,[],_空リストの時の値). /* _空リストの時の値は 0 か 0.0 */
sum(_空リストの時の値,[A|R1],X) :-
sum(_空リストの時の値,R,Y),
X is A + Y.
09/06/15 19:01:53
>>172
% Prolog
整数１～１０までの累計(X) :-
sum(0,1,10,X).
sum(_空リストの時の値,[],_空リストの時の値). /* _空リストの時の値は 0 か 0.0 */
sum(_空リストの時の値,[A|R1],X) :-
sum(_空リストの時の値,R,Y),
X is A + Y.