На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
  
> Prolog; Вычеслить подсписок исходного списка
    Здравствуйте. Подскажите пожалуйста почему не работает программа, пишу на Prolog 5.2.
    Условие: Создайте предикат, вычисляющий по списку и числу, подсписок исходного списка,
    начинающийся с элемента с указанным номером.
    ExpandedWrap disabled
      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:
    ExpandedWrap disabled
      PROGRAM ERROR. Module:OBJ\GOAL$000.PRO Pos:831
       Message:1405 List start expected (during term reading or converting)


    Заранее спасибо.
      Всем спасибо, разобрался
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0653 ]   [ 15 queries used ]   [ Generated: 28.05.24, 01:17 GMT ]