このディレクトリの索引

最大値と最小値の差(_ならび,_最大値,_最小値,_最大値と最小値の差) :-
        _ならび = [_最初の要素|_残りならび],
        最大値と最小値の差(_残りならび,_最初の要素,_最初の要素,_最大値,_最小値,_最大値と最小値の差).

最大値と最小値の差([],_最大値,_最小値,_最大値,_最小値,_最大値と最小値の差) :-
        _最大値と最小値の差 is _最大値 - _最小値.
最大値と最小値の差([A|R],_最大値_1,_最小値_1,_最大値,_最小値,_最大値と最小値の差) :-
        最大値と最小値の更新をするかしないか(A,_最大値_1,_最小値_1,_最大値_2,_最小値_2),
        最大値と最小値の差(R,_最大値_2,_最小値_2,_最大値,_最小値,_最大値と最小値の差).

最大値と最小値の更新をするかしないか(A,_最大値_1,_最小値_1,A,_最小値_1) :-
        A @> _最大値_1,!.
最大値と最小値の更新をするかしないか(A,_最大値_1,_最小値_1,_最大値_1,A) :-
        A @< _最小値値_1,!.
最大値と最小値の更新をするかしないか(_,_最大値_1,_最小値_1,_最大値_1,_最小値_1).