Prolog.Списки.Ввод/вывод

[Lisёноk]

День добрый! Имеется следующий код на Прологе.

domains
ListI=integer*
predicates
nondeterm change(integer,integer,ListI,ListI)
clauses
change(_,_,[],[]).
change(X1,X2,[X1|T],[X2|T]):-change(X1,X2,T,T1).
change(X1,X2,[H|T],[H|T1]):-X1<>H,change(X1,X2,T,T1).

Программа заменяет выбранные вхождения в списке другим (X2) значением.
Необходимо по требованию преподавателя, чтобы ввод списка, исходного вхождения, нового числа вводились с клавиатуры пользователем, а потом выводился измененный список.
Пыталась прописать это в goal, но ничего путного не вышло. Программа вообще отказывалась запускаться. Очень прошу Вас помочь!

[rrrFer]

вобщем ты видимо в турбо прологе пишешь )
там при вводе явно указывается тип, ввести список вроде бы так просто нельзя

Тебе как надо ввод организовать?
можно после каждого элмента спрашивать завершен ли ввод
можно сначала узнать количество элементов списка
можно вводить элменты. пока не будет введено какое-то определенное значение (ноль, например)
можно вводить до первого неправильного значения (вводили целые числа - юзер ввел строку)
можно считывать строки, преобразовывать их в числа, а вводить пока юзер не наберет exit

уточни что ты хочешь

[Lisёноk]

Да, я пишу в турбо прологе.
Нам не говорили как именно надо организовать ввод. Просто сказали что он нужен. А дальше уже полет нашей фантазии, так сказать.
Может вначале указывать количество элементов? Думаю этот код будет попроще, чтобы его понять.

[rrrFer]

не помню я как там в турбопролог это делается...
но примерно так:

p(L):-
  readint(N),!,
  p(L, N).
p([], N):-N <= 0, !.
p([H|T], N):-
  readint(H), !, NN = N - 1, p(T, NN).

[Lisёноk]

Большое спасибо! С вводом разобралась! Вы мне очень помогли!!!
Не могли бы еще подсказать с выводом?
Когда я вывожу, у меня получается следующий вид:
Spisok: 1,[0,2,8]
А как сделать, чтобы выводилось без квадратных скобок? Просто через запятую? То есть:
spisok: 1,0,2,8
Можно это как то реализовать? Подскажите пожалуйста!

[rrrFer]

p([]):-!.
p([H]):-
  !, write(H).
p([H|T]):-
  !, write(H), write(","), p(T).

так? - не проверял опять же, если опечатался - поправьте сами.

[Lisёноk]

Огромнейшее Вам спасибо! Все работает!!!)))
Еще раз большое спасибо!

[rrrFer]

да пжалсто, обращайтесь если что ))