Добавить данные в пролог с текстом

Question

?-dynamic(setup/5).
setup :-
    seeing(S),
    see('people.txt'),
    read_data,
    write('data read'),
    nl,
    seen,
    see(S).
read_data :-
    read(A),
    process(A).
process(A) :- A == end_of_file.
process(A) :-
    A \== end_of_file,
    write('1'),
    read(B),
    read(C),
    read(D),
    read(E),
    assertz(person(A,B,C,D,E)),
    read_data.

и текст

john.will.30.london.doctor.
martha.will.33.portsea.doctor.
henry.smith.26.manchester.doctor.

результат выходит

?- setup.

* Syntax Error

* Syntax Error

* Syntax Error

* Syntax Error

* Syntax Error
data read
yes

Что происходит?Что я сделал не так?

Answer 1

Вы читаете с read / 1, который ожидает допустимый текст Пролога в качестве ввода.Однако ваши данные

john.will.30.london.doctor.

недействительны.Напишите что-то вроде

person(john,will,30,london,doctor).

.Чаще всего люди не читают такие данные вручную.Вместо этого они загружают файл с помощью ['datafile.pl'] или других команд.