いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

512:493
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).

% バックトラックすると値の束縛は解かれてしまうから。

次ページ

続きを表示

1を表示