программа работает правильно.В ней нужно достроить фразу до палиндрома.если не сложно прокоментируйте пожалуйста программу
| Код |
domains
list=char*
predicates
str_to_list(string, list)
list_to_str(list, string)
separate(list,string)
/*invert(string,string)*/
space(string,integer)
clauses
space(" ",1).
space(_,0).
str_to_list("", []).
str_to_list(Str, [H|T]):-frontchar(Str, H, S1), str_to_list(S1, T).
list_to_str([], "").
list_to_str([H|T], Str):- list_to_str(T, S1), frontchar(Str, H, S1).
separate([],"").
separate(L,S):-separate(L,S).
goal
write("Input string:"), nl,
readln(Str),
str_to_list(Str, List),
space("a",T), space(" ",G),
write(T),write(G).
|
|