читать строку в атомном списке в прологе - PullRequest
Новая
       23

читать строку в атомном списке в прологе

4 голосов
/ 15 октября 2011

Мне нужно прочитать любую строку (из user_input) в атомарный список, например: 

Example line, which contains any ASCII chars.

в: 

[Example,'line,',which,contains,any,ASCII,'chars.']

то, что у меня так далеко: 

read_line_to_codes(user_input, Input),
atom_codes(IA,Input),
atomic_list_concat(AlistI,' ',IA).

но это работает только с отдельными словами из-за atom_codes.read / 2 также жалуется на пробелы, так есть ли способ сделать это?

о, и, возможно, затем разделить запятую на 2d-списки, добавив точку / восклицательный знак / вопросительный знак, например: 

[[Example,line],[which,contains,any,ASCII,chars],'.']

кстати: это SWI-пролог.

РЕДАКТИРОВАТЬ: нашел решение: 

read_line_to_codes(user_input, Input),
string_to_atom(Input,IA),
atomic_list_concat(AlistI,' ',IA),

не могу ответить на свой вопрос, потому что у меня нет 100 репутации: - /

1 Ответ

2 голосов
/ 27 ноября 2011 
input_to_atom_list(L) :-
    read_line_to_codes(user_input, Input),
    string_to_atom(Input,IA),
    tail_not_mark(IA, R, T),
    atomic_list_concat(XL, ',', R),
    maplist(split_atom(' '), XL, S),
    append(S, [T], L).

is_period(.).
is_period(?).
is_period(!).

split_atom(S, A, L) :- atomic_list_concat(XL, S, A), delete(XL, '', L).

%if tale is ? or ! or . then remove
%A:Atom, R:Removed, T:special mark
tail_not_mark(A, R, T) :- atom_concat(R, T, A), is_period(T),!. 
tail_not_mark(A, R, '') :- A = R.

ДЕМО 

1 ?- input_to_atom_list(L).
|: Example line, which contains any ASCII chars.
L = [['Example', line], [which, contains, any, 'ASCII', chars], '.'].
...