VPF::Вычеслить подсписок исходного списка, начинающийся

203

Дата 1.4.2015, 00:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 30.12.2013

Репутация: нет
Всего: нет

Здравствуйте. Подскажите пожалуйста почему не работает программа, пишу на Prolog 5.2. Условие: Создайте предикат, вычисляющий по списку и числу, подсписок исходного списка, начинающийся с элемента с указанным номером.

Код


domains
list = integer*

predicates
sublist(integer,integer,list,list)

clauses
sublist(_,_,[],[]):-!.
sublist(N,N,L,L):-!.
sublist(M,N,[H|T],T1):-
  M<N,
  M1=M+1,
  sublist(M1,N,T,T1).

goal
  write("N="), readint(N),
  write("L="), readterm(list,L),
  sublist(1,N,L,L1),write(L1),nl.

Ошибка после ввода N и L:

Код


PROGRAM ERROR. Module:OBJ\GOAL$000.PRO Pos:831
 Message:1405 List start expected (during term reading or converting)

Заранее спасибо

203

Дата 1.4.2015, 16:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 30.12.2013

Репутация: нет
Всего: нет

Всем спасибо, разобрался

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Prolog \| Следующая тема »