このディレクトリの索引
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関数側も修正すること。 
#  

'受け取ったならびの各要素の値の最大値を求める'(_受け取ったならび,_最大値) :-
        append(L1,[_最小値|L2],_受け取ったならび),
        \+((member(A,L1),A @> _最大値)),
        \+((member(B,L2),B @> _最大値)).

'受け取ったならびの各要素の値の最小値を求める'(_受け取ったならび,_最小値) :-
        append(L1,[_最小値|L2],_受け取ったならび),
        \+((member(A,L1),A @< _最小値)),
        \+((member(B,L2),B @< _最小値)).