Опишите предикат, определяющий количество возрастающих подпоследовательностей
Вариант 1 (который вхитовский, работает):
% Bilet2
% Patched by JamshyT 14.01.13
% Special for AISTd-31 :)
% To start type: jstart.
podposl([],[]).
podposl([X|L1],[X|L2]):-podposl(L1,L2).
podposl(L1,[Y|L2]):-podposl(L1,L2).
%**********************************************************************%
% подпоследовательность- это части списка ,элементы должны быть %
%
в той же
последовательности, но
%
%
не обязательно стоящие pядом
. %
%
podposled ( подпослед, данный
список)
%
%**********************************************************************%