Найти максимальную РАЗНИЦУ с соседним эелементом - Prolog
Формулировка задачи:
помогите найти максимальную РАЗНИЦУ с соседним элементом
Решение задачи: «Найти максимальную РАЗНИЦУ с соседним эелементом»
textual
Листинг программы
- maxdiff(X, Y, Old, New) :-
- X > Y,
- New is X-Y,
- New > Old,
- !.
- maxdiff(X, Y, Old, New) :-
- X < Y,
- New is Y-X,
- New > Old,
- !.
- maxdiff(_, _, Old, Old).
- maxdifflist([X, Y| T], M) :-
- !,
- maxdifflist([Y| T], MT),
- maxdiff(X, Y, MT, M).
- maxdifflist(_, 0).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
