Untitled
public c v1 · immutable/* Lab - 6 */domains E = string* T = string predicates enter_list(E) test(E). program.goal program. /* santa */clauses program:- write("\nВведите список\n(точка = прерывание)\n---\n"), enter_list(Str), test(Str). enter_list([H|T]):- write("Ввод: "), readln(H), H <> "." ,!, enter_list(T). enter_list([]). test(Str):- write("\n\nРезультат: \n\n"), write(Str).