|
Помогите пожалуйста доделать программу!
Среда: Visual Prolog Personal Edition v 5.1-5.2
Дано: список второго уровня с маркерами ("п")
Задача № 1: выделить списки с учётом маркера (разбить на подсписки имеющийся список) - выполнено
Задача № 2: полученные списки собрать в список второго уровня разделяя маркером (как было…) – не получается :upset:
конкретно не получается предикат «набор1(А)» который, по идее, должен склеивать уже промаркированные списки.
DOMAINS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%----------------------------------------------------------------------------
i_list=integer*
s_list=symbol*
%----------------------------------------------------------------------------
PREDICATES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%----------------------------------------------------------------------------
nondeterm conc(s_list,s_list,s_list)
nondeterm list(s_list)
nondeterm перебор_s_list_2(s_list,s_list)
nondeterm перебор(s_list)
nondeterm набор(s_list)
nondeterm набор1(s_list)
%----------------------------------------------------------------------------
CLAUSES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%----------------------------------------------------------------------------
conc([],L,L).
conc([H|T],L,[H|T1]):-conc(T,L,T1).
%----------------------------------------------------------------------------
list([п,"1","2","3",п,"4","5","6",п,"7","8","9",п]).
%----------------------------------------------------------------------------
перебор_s_list_2(А,X1):-conc(_,["п"|R],А),conc(_,["п"|R1],R),conc(X,R1,R),conc(X1,["п"],X),not(conc(_,["п"|_],X1)).
%----------------------------------------------------------------------------
перебор(X):-list(А),перебор_s_list_2(А,X).
%----------------------------------------------------------------------------
набор(["п"]).
набор(А):-перебор(X),conc(X,["п"],А).
%----------------------------------------------------------------------------
набор1(В):-набор(Б),набор1(А),conc(А,Б,В).
%----------------------------------------------------------------------------
GOAL %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%----------------------------------------------------------------------------
набор(А).
%набор1(А).
В данном варианте программа даёт решение:
А=["п"]
А=["1","2","3","п"]
А=["4","5","6","п"]
А=["7","8","9","п"]
4 Solutions
Требуемое решение:
А=["п","1","2","3","п","4","5","6","п","7","8","9","п"]
1 Solutions
Заранее благодарен.
|
