Создайте предикат, удаляющий из данной строки все повторные вхождения символов prolog 5.2

Тема в разделе "Другие", создана пользователем 203, 27 апр 2015.

  1. 203

    203 New Member

    Регистрация:
    21 фев 2012
    Сообщения:
    4
    Симпатии:
    0
    Здравствуйте. Может кто может помочь решить задачу. Создайте предикат, удаляющий из данной строки все повторные вхождения символов (нужно брать входную строку из файла, а полученный результат записать в новый файл). Заранее спасибо.
    Вот что у меня получилось (сделано не правильно т.к не работает)

    Код (Text):
    domains
    charArray=char*
    str=string
    strl=str*
     
    predicates
    remall(charArray,str,str)
    task(str,str)
       
    nondeterm run
     
    clauses
    remall(_,"","").       
    remall(C,S,R) :- frontchar(S,C,RS), remall(C,RS,R),!.
    remall(C,S,R) :- frontchar(S,Q,RS), remall(C,RS,RR), frontchar(R,Q,RR).
     
    task("","").
    task(S,R) :- frontchar(S,A,RS), remall(A,RS,RRS),  task(RRS,RR), frontchar(R,A,RR).
     
    run :- file_str("D:/Work/input.txt",S), write(S), nl, file_str("D:/Work/output.txt", S). %вывод не сделан
     
    goal
    run.
     
Загрузка...
Похожие Темы - Создайте предикат удаляющий
  1. Programer18
    Ответов:
    0
    Просмотров:
    1.023
  2. KalinaK
    Ответов:
    1
    Просмотров:
    1.609

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