このディレクトリの索引
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) :-
        '受け取ったならびの各要素の値の最大値を求める'(R,_最大値_2),
        最大値選択(_要素の値,_最大値_2,_最大値_1).

最大値選択(_要素の値,_最大値_2,_要素の値) :-
        _要素の値 @>= _最大値_2,!.
最大値選択(_要素の値,_最大値_2,_最大値_2) :-
        _要素の値 @=< _最大値_2,!.


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

最小値選択(_要素の値,_最小値_2,_要素の値) :-
        _要素の値 @=< _最小値_2,!.
最小値選択(_要素の値,_最小値_2,_最小値_2) :-
        _要素の値 @> _最小値_2,!.