Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=414595&view=findpost&p=3829340 Sun, 26 Apr 2020 21:44:52 +0000 Prolog, списки https://forum.sources.ru/index.php?showtopic=414595&view=findpost&p=3829340 Цитата Астр0 @
т.е. я ввожу 2 списка, например: [1,2,3,4,5] и [3,4,5,6] затем ввожу N1=2 и N2=4.
И должен получиться следующий список:[2,3,4,3,4].

Нет, должен получиться список [2,3,4,4,5,6].

    domains
    list = integer*
     
    predicates
    conc(list,list,list)
    sublist(integer,integer,integer,list,list)
     
    goal
    clearwindow,A=2,B=4, sublist(A,B,1,[1,2,3,4,5],L1),
    sublist(A,B,1,[3,4,5,6],L2),conc(L1,L2,L),write(L).
     
    clauses
     
    conc([], L, L).
    conc([H|T], L, [H|T1]):-
    conc(T,L,T1).
     
    sublist(_,_,_,[],[]):-!.
     
    sublist(N1,N2,N,[H|T],[H|T1]):-
      N>= N1, N<=N2,!,
      NN=N+1,
      sublist(N1,N2,NN,T,T1).
     
    sublist(N1,N2,N,[H|T],T1):-
      NN=N+1,!,
      sublist(N1,N2,NN,T,T1).
]]> swf Prolog https://forum.sources.ru/index.php?showtopic=414595&view=findpost&p=3795451 Fri, 12 Apr 2019 08:44:28 +0000 Prolog, списки https://forum.sources.ru/index.php?showtopic=414595&view=findpost&p=3795451 "Определить предикат для объединения элементов двух списков, находящихся в диапазоне от N1 до N2"
т.е. я ввожу 2 списка, например: [1,2,3,4,5] и [3,4,5,6] затем ввожу N1=2 и N2=4.
И должен получиться следующий список:[2,3,4,3,4].
есть код по объединению двух списков
    domains
    int=integer
    intl=integer*
     
    predicates
     
    inters(intl,intl,intl)
     
    clauses
     
    inters([],L2,L2).
    inters([H|T1],L2,[H|T2]):- inters(T1,L2,T2).
     
    goal
    inters([1,2,3,4,5],[5,7,8,9,10],L),write(L),nl.
]]> Астр0 Prolog