Не могу доработать, работа со списками

@RRRONNN · Регистрация: 27.12.2010

доброго вечерочка!
написал программу:
задача:Преобразовать конструкцию языка Си++ вида

C++

1
2
3

switch (x){
case 1: y=45;break;
case 2: y=34;break;}

в соответствующую конструкцию языка Паскаль.

Pascal

case x of
1: y:=45;
2: y:=34;
end;

текст программы на прологе:

Prolog

 % Lw=word list
% w,wl = one word   
% Lc = char list 
% C,C1 = single char 
 
%trace dtm
domains
    c=char 
    w=symbol 
    lc=c* 
    lw=w* 
 
predicates
        moi(w,lw,lw)
    name(w,lc) 
    cname(w,lc)
    read_sent (lw) 
    rest_of_sent(w,c,lw) 
    readword(c,w,c) 
    rest_of_word(c,lc,c) 
    point(c) 
    tol_char(c) 
    sbound(w) 
%   dtm(w,lw,lw)
    conc(lw,lw,lw)
    write_list(lw)
 
clauses
 
    read_sent([W|Lw]) :-    % считать предложение
        readchar(C),write(C), 
        readword(C,W,Cl), 
        rest_of_sent(W,Cl,Lw),!.
 
% предыдущее слово и следующий символ введены; 
% считать оставшуюся часть предложения.
rest_of_sent(W,_,[]) :- sbound(W),!. 
 
% конец, если предыдущим
% словом была граница 
% предложения
 
rest_of_sent(_,C,[Wl|Lw]) :-
    readword(C,Wl,Cl), 
    rest_of_sent(Wl,Cl,Lw).
 
% взять начальный символ, прочитать слово, 
% возвратить следующий символ
readword(C,W,C1) :-
    point(C),!,
    name(W,[C]),    % построить слово
    readchar(C1),write(C1).
 
readword(C,W,C1) :-
    tol_char(C),!, 
    readchar(C2),write(C2), 
    rest_of_word(C2,Lc,C1), % считать след, символы 
    name(W,[C|Lc]).           % построить слово
 
readword(_,W,C1) :-
    readchar(C2),write(C2), % символ С недопустим 
    readword(C2,W,C1).      % ввести следующий символ
                % и попытаться повторить
 
 
% расширять слово до тех пор, пока 
% не встретится недопустимый символ
rest_of_word(C,[C|Lc],C1) :-      % объединить символы
    tol_char(C),!,            % в список 
    readchar(C2),write(C2), 
    rest_of_word(C2,Lc,C1).
 
rest_of_word(C,[],C).   % конец слова, если
                        % С - недопустимый символ
 
%создание слова W из списка символов
name(W,[H]) :-  str_char(W,H). 
 
name(W,[H|Tail]) :-
    name(Wtail,Tail),
    frontchar(W,H,Wtail).
 
%создание списка символов из слова
cname(W,[H|Tail]) :-  
    frontchar(W,H,Wtail),!,
    cname(WTail,Tail). 
 
cname("",[]).
 
% символы, считающиеся самостоятельными словами
point(44).  % ,
point(59).  % ;
point(58).  % :
%point(63).  ?
%point(33).  !
point(46).  % .
point(91).  % [
point(93).  %]   
point(45).  % -
point(40). %(   
point(41). %)   
point('{').
point('}').
point('=').
point('*').
point('/').
point('+').
point('<').
point('>').
 
 
 
 
 
% диапазоны кодов допустимых символов
 
tol_char(I) :- I>96,I<123. % а - z 
tol_char(I) :- I>64,I<91. % А - Z 
tol_char(I) :- I>47,I<58. % 0 - 9
 
% знаки пунктуации, заканчивающие предложение
 
 
sbound("."). 
 
%-------------------------------------------------------
 
moi(nach,Id,Im) :-
    conc(["switch","("],S1,Id),
    conc(["case "],S1,S),
    moi(rr,S,Im).
    
moi(rr,Id,Im) :-
    conc(S1,[")","{","case"|S2],Id),
    conc(S1,[" of "|S2],S),
    moi(rrr,S,Im).
 
    
moi(rrr,Id,Im) :-
    conc(S1,["case"|S2],Id),
    conc(S1,[" "|S2],S),
    moi(sss,S,Im).
        
moi(sss,Id,Im) :-
    conc(S1,["break",";"|S2],Id),
    conc(S1,[" "|S2],S),
    moi(ss,S,Im).
 
moi(ss,Id,Im) :-
    conc(S1,["="|S2],Id),
    conc(S1,[":","="|S2],S),
    moi(ss2,S,Im).
    
moi(ss2,Id,Im) :-
    conc(S1,["}"|S2],Id),
    conc(S1,[" end; "|S2],Im).  
 
 
conc([],L,L).
conc([X|L1],L2,[X|L3]) :- conc(L1,L2,L3).
 
write_list([]):-nl.
write_list([H|T]) :- write(H), write_list(T).
 
 
 
goal 
    write("\n Sent: "), 
    read_sent(W), 
    moi(nach,W,MW),
    nl,write_list(W),
    nl,write_list(MW).

программа работает, но не корректно, она возвращает много значений, вместо "сляпанного" из них одного истинного.
P.S.
ошибки, я думаю, следует искать после строки 127, т.к. там начинается преобразование языков!
Прошу помогите, не хочется из-за пустяка вылетать с 4 курса((

Добавлено через 2 часа 14 минут
прошу не пугаться длинного кода, сегмент требующий доработки составляет 30 строк, и проблема только с конкатенацией...

@Грымзик · 12.06.2012, 21:55

Да конкатенация не проблема

Prolog

1 2	to_string([],""). to_string([H\|Tail],S):-to_string(Tail,S1),fronttoken(S,H,S1).

Но у Вас по-моему сам разбор ошибки содержит, например почему-то появляются две скобочки перед x.

@RRRONNN · 13.06.2012, 08:02 **[ТС]**

прошу прощения, но где вы нашли этот кусочек кода?

Добавлено через 21 минуту
и что за 2 скобочки перед Х?

Добавлено через 8 минут
вот что выводит у меня и нет ни каких скобочек!

Sent: switch (x) {
case 1:y=45;break;
case 2:y=34;break;}.

switch(x){case1:y=45;break;case2:y=78;break;}.

case x of 1:y:=45; 2:y=34;break; end; .
W=["switch","(","x",")","{","case","1",":","y","=","4 5",";","break",";","case","2",":","y","=","34",";" ,"break",";","}","."], MW=["case ","x"," of ","1",":","y",":","=","45",";"," "," ","2",":","y","=","78",";","break",";"," end; ","."]

switch(x){case1:y=45;break;case2:y=34;break;}.

case x of 1:y=45; 2:y:=34;break; end; .
W=["switch","(","x",")","{","case","1",":","y","=","4 5",";","break",";","case","2",":","y","=","34",";" ,"break",";","}","."], MW=["case ","x"," of ","1",":","y","=","45",";"," "," ","2",":","y",":","=","34",";","break",";"," end; ","."]

switch(x){case1:y=45;break;case2:y=78;break;}.

case x of 1:y:=45;break; 2:y=78; end; .
W=["switch","(","x",")","{","case","1",":","y","=","4 5",";","break",";","case","2",":","y","=","34",";" ,"break",";","}","."], MW=["case ","x"," of ","1",":","y",":","=","45",";","break",";"," ","2",":","y","=","34",";"," "," end; ","."]

switch(x){case1:y=45;break;case2:y=34;break;}.

case x of 1:y=45;break; 2:y:=34; end; .
W=["switch","(","x",")","{","case","1",":","y","=","4 5",";","break",";","case","2",":","y","=","34",";" ,"break",";","}","."], MW=["case ","x"," of ","1",":","y","=","45",";","break",";"," ","2",":","y",":","=","34",";"," "," end; ","."]
4 Solutions

@RRRONNN 0 / 0 / 2 Регистрация: 27.12.2010 Сообщений: 24
	13.06.2012, 08:02 [ТС]	3
	прошу прощения, но где вы нашли этот кусочек кода? Добавлено через 21 минуту и что за 2 скобочки перед Х? Добавлено через 8 минут вот что выводит у меня и нет ни каких скобочек! Sent: switch (x) { case 1:y=45;break; case 2:y=34;break;}. switch(x){case1:y=45;break;case2:y=78;break;}. case x of 1:y:=45; 2:y=34;break; end; . W=["switch","(","x",")","{","case","1",":","y","=","4 5",";","break",";","case","2",":","y","=","34",";" ,"break",";","}","."], MW=["case ","x"," of ","1",":","y",":","=","45",";"," "," ","2",":","y","=","78",";","break",";"," end; ","."] switch(x){case1:y=45;break;case2:y=34;break;}. case x of 1:y=45; 2:y:=34;break; end; . W=["switch","(","x",")","{","case","1",":","y","=","4 5",";","break",";","case","2",":","y","=","34",";" ,"break",";","}","."], MW=["case ","x"," of ","1",":","y","=","45",";"," "," ","2",":","y",":","=","34",";","break",";"," end; ","."] switch(x){case1:y=45;break;case2:y=78;break;}. case x of 1:y:=45;break; 2:y=78; end; . W=["switch","(","x",")","{","case","1",":","y","=","4 5",";","break",";","case","2",":","y","=","34",";" ,"break",";","}","."], MW=["case ","x"," of ","1",":","y",":","=","45",";","break",";"," ","2",":","y","=","34",";"," "," end; ","."] switch(x){case1:y=45;break;case2:y=34;break;}. case x of 1:y=45;break; 2:y:=34; end; . W=["switch","(","x",")","{","case","1",":","y","=","4 5",";","break",";","case","2",":","y","=","34",";" ,"break",";","}","."], MW=["case ","x"," of ","1",":","y","=","45",";","break",";"," ","2",":","y",":","=","34",";"," "," end; ","."] 4 Solutions 0

Опции темы