09/07/18 05:40:06
>>493 大間違い! これではリストに整数が貯まらない。再帰はしかたない。
t492 :-
get_integer(N),
length(L,N),
t492(L),
max(L,Max),
min(L,Min),
write_formatted('全要素 = %t\n最大値 = %t\n最小値 = %t\n',[L,Max,Min]).
t492([]) :- !.
t492([I|R]) :-
get_integer(I),
t492(R).
get_integer(N) :-
repeat,
get_line(Line),
atom_to_term(Line,N,_),
integer(N).
% バックトラックすると値の束縛は解かれてしまうから。