Работа со строками на Пролог

[yulia]

Плиз помогите кто может.... Надо написать программу на языке ТурбоПролог, чтобы она осуществляла последовательный ввод символов с клавиатуры и выводила строку, добавляя новый символ в ее начало.

вот что получилось у меня:
domains
s=char
predicates
print
clauses
print:- readchar(L),
frontchar(S,L,""),
nl, write(S),
print.

Но оно постоянно добавляет символ в пустую строку и я не знаю как сделать так, чтобы добавляло к уже существующим. и к тому же оно зацикливается и я не знаю как организовать выход из цикла.

Заранее спасибо за помощь.

[pu4koff]

если я правильно понял задачу, то:

predicates
  print(string)
clauses
  print(NStr) :-
    ReadChar(X),
    X <> 13,
    frontchar(Str,X,NStr),
    write(Str),nl,
    print(Str).
  print(_).

goal
  print("").

Ввод продолжается, пока Enter не нажмешь

[yulia]

Спасибо огромное!!! Прога супер - то что надо было!!!!
Только можно мне еще объяснить, что такое
X<>13 - что такое 13? Как я понимаю, это код Enter?
И еще, зачем нам print(_).? И что это значит?

[pu4koff]

Сообщение от yulia

Спасибо огромное!!! Прога супер - то что надо было!!!!
Только можно мне еще объяснить, что такое
X<>13 - что такое 13? Как я понимаю, это код Enter?
И еще, зачем нам print(_).? И что это значит?

да 13 - Enter.

print(_) в данном случае это не надо, но если ты в goal напишешь:
print(""),
write("конец").
то write без этой строки по моему не выполнится.
_ - это значит нам пофиг че за параметр.
попадем на эту строчку как раз, когда нажмем Enter.

[Virtson]

pu4koff рулит .. кстати мы тоже начали изучать (Турбо)Пролог

[pu4koff]

Сообщение от Virtson

pu4koff рулит .. кстати мы тоже начали изучать (Турбо)Пролог

у меня уже курс пролога и лиспа закончился можно сказать к счастью, т.к. лабы в свое время половине группы делал. В итоге каждую пару бегал от одного к другому, чтобы объяснить как его лаба работает. Правда кошелек мой благодаря этим языкам слегка потолстел

[yulia]

Спасибо огромное!!!