Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=401064&view=findpost&p=3588556 Wed, 01 Apr 2015 13:40:08 +0000 Prolog; Вычеслить подсписок исходного списка https://forum.sources.ru/index.php?showtopic=401064&view=findpost&p=3588556 203 Prolog https://forum.sources.ru/index.php?showtopic=401064&view=findpost&p=3588276 Tue, 31 Mar 2015 18:55:04 +0000 Prolog; Вычеслить подсписок исходного списка https://forum.sources.ru/index.php?showtopic=401064&view=findpost&p=3588276 Условие: Создайте предикат, вычисляющий по списку и числу, подсписок исходного списка,
начинающийся с элемента с указанным номером.
    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{text}0.PRO Pos:831
     Message:1405 List start expected (during term reading or converting)


Заранее спасибо.]]> 203 Prolog