Найти предикат

Тема в разделе "Другие", создана пользователем masta, 25 апр 2007.

Статус темы:
Закрыта.
  1. masta

    masta Гость

    Сталкнулся с такой проблемой: нужно на ProLog-e написать програму у которой на входе будет список, а на выходе она будет говорить являеться ли этот список полиндромом, тоесть читаеться одинаково как справо-налево так и слево-направо например [a,b,c,b,a]. Если кто знает помогите пожалуйста, а то я уже все перерыл а ответ так и не нашол.
     
  2. LuMee

    LuMee Well-Known Member

    Регистрация:
    2 май 2006
    Сообщения:
    477
    Симпатии:
    0
    Торжественно стырено с ИНТУИТа:
    Код (Text):
    rev([H|T],L1,L2):–
    rev(T,[H|L1],L2).
    rev([ ],L,L).

    palindrom(L) :-
    rev(L, [], L).
     
  3. masta

    masta Гость

    Спасибо большое.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей