» » »

Опишите предикат, определяющий числа-перевертыши - запись таких чисел читается одинаково слева направо и справа налево.

% Bilet12
% Patched by JamshyT 14.01.13
% Special for AISTd-31 :)
% To start type: jstart.
razList(S,L):-S<10,L=[S].
razList(S,L):-S>10, X is S mod 10,Y is S //10, razList(Y,L1),L=[X|L1].

rev([H|T],L1,L2):-
                  rev(T,[H|L1],L2).
rev([],L,L).

reverse(L1,L2):-rev(L1,[],L2).

list(X,L):-razList(X,L1),reverse(L1,L).

perev(X):-list(X,L),reverse(L,L).
jstart:- write(' Vvedite chislo: '),nl,read(JAM1),nl,
perev(JAM1).

Друзья! Приглашаем вас к обсуждению. Если у вас есть своё мнение, напишите нам в комментарии.