このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1335517816/540
#  {1] 授業単元:プログラミング演習  
#  [2] 問題文:  
#  http://ime.nu/codepad.org/HmheMWgn 
#  上記のプログラムを参考にして1つの配列を受け取ると、その各要素の値の中の最大値を求めるmaximum関数と、最小値を求めるminimum関数を作成せよ。 
#  そしてten[5]={50,70,40,80,60}の場合について、ten[5]の各要素の値の最大値と最小値を求めるプログラムを作成せよ。 
#  必要に応じてmain関数側も修正すること。 
#  

'受け取ったならびの各要素の値の最大値を求める'(_受け取ったならび,_最大値) :-
        _受け取ったならび = [_最初の要素|_残りの要素],
        '受け取ったならびの各要素の値の最大値を求める'(_受け取ったならび,_最初の要素,_最大値).

'受け取ったならびの各要素の値の最大値を求める'([],_最大値,_最大値).
'受け取ったならびの各要素の値の最大値を求める'([_要素の値|R],_最大値_1,_最大値) :-
        _要素の値 @> _最大値_1,
        '受け取ったならびの各要素の値の最大値を求める'(R,_要素の値,_最大値).
'受け取ったならびの各要素の値の最大値を求める'([_要素の値|R],_最大値_1,_最大値) :-
        _要素の値 @=< _最大値_1,
        '受け取ったならびの各要素の値の最大値を求める'(R,_最大値_1,_最大値).


'受け取ったならびの各要素の値の最小値を求める'(_受け取ったならび,_最小値) :-
        _受け取ったならび = [_最初の要素|_残りの要素],
        '受け取ったならびの各要素の値の最小値を求める'(_受け取ったならび,_最初の要素,_最小値).

'受け取ったならびの各要素の値の最小値を求める'([],_最小値,_最小値).
'受け取ったならびの各要素の値の最小値を求める'([_要素の値|R],_最小値_1,_最小値) :-
        _要素の値 @< _最小値_1,
        '受け取ったならびの各要素の値の最小値を求める'(R,_要素の値,_最小値).
'受け取ったならびの各要素の値の最小値を求める'([_要素の値|R],_最小値_1,_最小値) :-
        _要素の値 @>= _最小値_1,
        '受け取ったならびの各要素の値の最小値を求める'(R,_最小値_1,_最小値).