Prolog SWI - cделать чтобы ответ был в виде строки

@coby9 · Регистрация: 21.04.2014

Author24 — интернет-сервис помощи студентам

Подсдажите кто нибудь!!! Есть программа которая переводит числа из десятичной записи в римскую! но в данной программе ответ выдеат ся в виде массива элементов! Как сделать чтобы ответ был в виде строки! т.е. без запятых в ответе!!!

Prolog

decroml(N,L):-decroml1(N ,[1000,900,500,400,100,90,50,40,10,9,5,4,1],[['M'],
['C','M'],['D'],['C','D'],['C'],['X','C'],['L'],['X','L'],['X'],['I','X'],['V'],
['I','V'],['I']],[],L),!.
decroml1(0,_,_,L,L).
decroml1(N,[H1|T1],[H2|T2],L1,L2):-N>=H1,add_list(L1,H2,L3),
M is N-H1,decroml1(M ,[H1|T1],[H2|T2],L3,L2).
decroml1(N,[H1|T1],[H2|T2],L1,L2):-decroml1(N ,T1,T2,L1,L2).
add_list(L,[],L).
add_list([],L,L).
add_list([H|T],L2,[H|T1]):-add_list(T,L2,T1).
% decroml(155,L).

@arlat · 23.04.2014, 13:00

? decroml(155,L), atomic_list_concat(L,A).

@arlat 794 / 598 / 156 Регистрация: 07.10.2013 Сообщений: 1,327
	23.04.2014, 13:00	2
	? decroml(155,L), atomic_list_concat(L,A). 0