Помогите решить задачу

 
0
 
Prolog | Функциональные языки
ava
DiMoN_TD | 20.01.2013, 23:58
Сразу скажу, что задача из программы университета.
Времени мало, как и знаний в этой области, поэтому прошу помочь знающих людей с этой задачей:

"В списке символов S1, S2, ..., SN найти первое и последнее вхождения указанного символа и исключить все символы между ними."

Заранее спасибо
Ответы (1)
ava
kshyms | 19.02.2013, 15:37 #
implement main
    open core
class predicates
Списоксимволов:    (string) multi(o).
Началсимвол: (string) multi(o).
Середсимвол: (string) multi(o).
Конечнсимвол: (string) multi(o).
clauses
   % все что с большой буквы начинается это переменная . - это или . ;- это и
%организовать цикл с конкатенцией S...1...2....n и середину объявить и отрезать
Списоксимволов(Началсимвол,Конечнсимвол) :- Началсимвол(Начал), Середсимвол(Серед),Конечнсимвол(Кон).
       
      run():-console::init(),
           Списоксимволов(),
       nl,
       _=readChar().  
Списоксимволов().
succeed(). % place your own code here
end implement main

goal
    mainExe::run(main::run).  
Еще надо доработать... и успехов коллега!

Добавлено позднее:
implement main
    open core
class predicates
Списоксимволов:    (string) multi(o).
Началсимвол: (string) multi(o).
Середсимвол: (string) multi(o).
Конечнсимвол: (string) multi(o).
clauses
   % все что с большой буквы начинается это переменная . - это или . ;- это и
%организовать цикл с конкатенцией S...1...2....n и середину объявить и отрезать
Списоксимволов(Началсимвол,Конечнсимвол) :- Началсимвол(Начал), Середсимвол(Серед),Конечнсимвол(Кон).
       
      run():-console::init(),
           Списоксимволов(),
       nl,
       _=readChar().  
Списоксимволов().
succeed(). % place your own code here
end implement main

goal
    mainExe::run(main::run).  
Еще надо доработать... и успехов коллега!

Добавлено позднее:
implement main
    open core,console

class predicates
   Началсимвол,:   (string) multi(o).
   Середсимволе:       (string) multi(o).
      Середсимвол:    (string) multi(o).
              Списоксимволов: (string,string,string) multi(o,o,o).
   Списоксимволов: ().
clauses
   % все что с большой буквы начинается это переменная . - это или . ;- это и
%организовать цикл с конкатенцией S...1...2....n и середину объявить и отрезать
Списоксимволов(Началсимвол,Конечнсимвол) :- Началсимвол(Начал), Середсимвол(Серед),Конечнсимвол(Кон).
       
      run():-console::init(),
           Списоксимволов(),
       nl,
       _=readChar().  
Списоксимволов().
succeed(). % place your own code here
end implement main

goal
    mainExe::run(main::run).  
Еще надо доработать... и успехов коллега!

Добавлено позднее:
implement main
    open core,console

class predicates
   Началсимвол,:   (string) multi(o).
   Середсимволе:       (string) multi(o).
      Середсимвол:    (string) multi(o).
              Списоксимволов: (string,string,string) multi(o,o,o).
   Списоксимволов: ().
clauses
   % все что с большой буквы начинается это переменная . - это или . ;- это и
%организовать цикл с конкатенцией S...1...2....n и середину объявить и отрезать
Списоксимволов(Началсимвол,Конечнсимвол) :- Началсимвол(Начал), Середсимвол(Серед),Конечнсимвол(Кон).
       
      run():-console::init(),
           Списоксимволов(),
       nl,
       _=readChar().  
Списоксимволов().
succeed(). % place your own code here
end implement main

goal
    mainExe::run(main::run).  
Еще надо доработать... и успехов коллега!
Зарегистрируйтесь или войдите, чтобы написать.
Фирма дня
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Участники
advanced
Отправить