/*в списке преподователей найти фамилию, содержащую букву а */
'найти'(L,M):-findall(F,'преподаватель'(F,G,T),L1),'name'(M,M1),
'поиск'(L1,L,M1).
'поиск'([],[],M).
'поиск'([X|T],[X|T1],M):-'name'(X,L),'буква'(L,M),!,'поиск'(T,T1,M).
'поиск'([X|T],T1,M):-'поиск'(T,T1,M).
'буква'(_,[]).
'буква'([M|T],[M|T1]):-'буква'(T,T1).
'буква'([X|T],[M|T1]):-'буква'(T,[M]).
/*дополнительное задание*/
/*заменить строку 'слон' на последовательность символов типа ['с','л','о','н']*/
'преобразовать'(Str,L):-'name'(Str,L1),'замена'(L1,L).
'замена'([],[]).
'замена'([X|T],[S|T1]):-'name'(S,[X]),'замена'(T,T1). |
Главная
Каталог файлов
