09/12/25 14:40:46
>>71
% Prolog >>72はズルしてるのでもうひとつ。配列はリストと読み替えてください。
入力されたデーク数に応じた配列を確保し，入力されたデータをその配列に保存し，それらの和を求める :-
催促付き整数入力('データの数は?',N),
入力されたデーク数に応じた配列を確保し(N,L),
入力されたデータをその配列に保存し、([_],L),
それらの和を求める(L,_和),
write_formatted('%\n',[_和]).
入力されたデーク数に応じた配列を確保し(N,L) :- length(L,N).
入力されたデータをその配列に保存し、(_,[]) :- !.
入力されたデータをその配列に保存し、(L,[N|R]) :-
length(L,M),
催促付き整数入力('%t番目のデータを入力してください:',[M],N),
入力されたデータをその配列に保存し、([_|L],R).
それらの和を求める([],0).
それらの和を求める([N|R],X) :- それらの和を求める(R,Y),X is N + Y.