Разложение числа на сумму положительных чисел

@nastya69 · Регистрация: 05.12.2009

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

Составить программу подсчета количества всех разбиений числа n на положительные слагаемые. Слагаемые должны располагаться в невозрастающем порядке, а разбиения – в возрастающем. Например, для n = 5 перечисление будет выглядеть так: 1+1+1+1+1, 2+1+1+1, 2+2+1, 3+1+1,3+2, 4+1, 5.
кто знает как решить помогите прошу вас!
П о ж л у й с т а!!!!

@Грымзик · 08.12.2009, 23:22

Prolog

summa(0,0,0):-!.
summa(A,B,N):- N1 is N-1, summa(A1,B,N1), A is A1+1.
summa(A,B,N):- N1 is N-1, summa(A,B1,N1), B is B1+1.
 
razl(1,[1]):-!.
razl(N,[N]).
razl(N,[A|[H|Tail]]):- summa(A,B,N), A>0, B>0, razl(B,[H|Tail]),A>=H.
 
p(N,L,Len):-setof(R,razl(N,R),L), length(L,Len).

Prolog

1
2
3

?- p(5,L,Len).
L = [[1, 1, 1, 1, 1], [2, 1, 1, 1], [2, 2, 1], [3, 1, 1], [3, 2], [4, 1], [5]],
Len = 7.

@nastya69 · 09.12.2009, 14:33 **[ТС]**

Спасибо тебе большое за помощь!!!!!!

@nastya69 0 / 0 / 0 Регистрация: 05.12.2009 Сообщений: 8
		1
	Разложение числа на сумму положительных чисел 07.12.2009, 15:22. Показов 2988. Ответов 2 Метки нет (Все метки) Составить программу подсчета количества всех разбиений числа n на положительные слагаемые. Слагаемые должны располагаться в невозрастающем порядке, а разбиения – в возрастающем. Например, для n = 5 перечисление будет выглядеть так: 1+1+1+1+1, 2+1+1+1, 2+2+1, 3+1+1,3+2, 4+1, 5. кто знает как решить помогите прошу вас! П о ж л у й с т а!!!! 0

@nastya69 0 / 0 / 0 Регистрация: 05.12.2009 Сообщений: 8
	09.12.2009, 14:33 [ТС]	3
	Спасибо тебе большое за помощь!!!!!! 0