- 452 名前：デフォルトの名無しさん mailto:sage [2009/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,_最小値,_最大値).
