Пролог SWI - Помощь студентам

coby9 · 21.04.2014, 17:23

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

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).

rrrFer · 21.04.2014, 19:55

Код:

p(Val, X):-
	decroml(Val ,L), foldl(string_concat, L, '', X).

Код:

?- p(155,L).
L = "VLC".

coby9 · 21.04.2014, 20:10

т.е. теперь еще нужно обратить строку?? а то все символы задом наперед!

21.04.2014, 17:23	#1
coby9 Новичок Джуниор Регистрация: 21.04.2014 Сообщений: 3	Пролог SWI Подсдажите кто нибудь!!! Есть программа которая переводит числа из десятичной записи в римскую! но в данной программе ответ выдеат ся в виде массива элементов! Как сделать чтобы ответ был в виде строки! т.е. без запятых в ответе!!! 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).

21.04.2014, 19:55	#2
rrrFer Санитар Старожил Регистрация: 04.10.2008 Сообщений: 2,577	Код: `p(Val, X):- decroml(Val ,L), foldl(string_concat, L, '', X).` Код: `?- p(155,L). L = "VLC".` Мой блог о программировании и проектировании

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
SWI Prolog Есть ли на русском литература?	andrejf92	Помощь студентам	2	21.02.2014 14:56
swi prolog помогите 2 задачки	OrdeR	Помощь студентам	1	29.10.2013 06:03
SWI Prolog.Удаление n-того элемента списка.Вывести парные простые числа	KATKAT	Помощь студентам	2	25.04.2013 04:22
Програмирование в SWI-Prolog	Лина_Чер	Помощь студентам	0	28.01.2013 20:18
swi prolog. поиск пути в лабиринте.	tatysya	Помощь студентам	1	15.05.2011 18:36

21.04.2014, 20:10	#3
coby9 Новичок Джуниор Регистрация: 21.04.2014 Сообщений: 3	т.е. теперь еще нужно обратить строку?? а то все символы задом наперед!