09/07/12 18:34:55
>>451
% Prolog
整数要素ファイルの最小値・最大値(_ファイル,_最小値,_最大値) :-
get_chars(_ファイル,Chars),
concat_atom(Chars,Atom),
split(Atom,['\n',' '],L),
ならびの中の最小値・最大値(L,A,A,_最小値,_最大値).
ならびの中の最小値・最大値([],X,Y,X,Y) :- !.
ならびの中の最小値・最大値([A|R],Min,Max,_最小値,_最大値) :-
A < Min,
ならびの中の最小値・最大値(R,A,Max,_最小値,_最大値).
ならびの中の最小値・最大値([A|R],Min,Max,_最小値,_最大値) :-
A > Max,
ならびの中の最小値・最大値(R,Min,A,_最小値,_最大値).
ならびの中の最小値・最大値([_|R],Min,Max,_最小値,_最大値) :-
ならびの中の最小値・最大値(R,Min,Max,_最小値,_最大値).