GUI Prolog - найти все возможные способы полной упаковки рюкзака

@Ольга Я · Регистрация: 03.02.2013

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

Здравствуйте. Помогите написать программу на прологе.
Даны набор элементов багажа разного веса (в виде списка) и грузоподъемность рюкзака. Найти все возможные способы полной упаковки рюкзака.

Есть начало.
Для заданных фактов:

Prolog

p(molotok,1).
p(palatka,3).
p(verevka,2).
 
z(N,[A]):-p(A,W), N2=N-W, N2>=0.     
z(N,[A|Tail]):-N>0,p(A,W),N1=N-W,z(N1,Tail).

N - вес рюкзака.

выводит элементы, которые можно положить (не больше веса рюкзака).
Нужно, чтобы была полная загрузка. И варианты не повторялись (в одном варианте не было два молотка к примеру).

@Грымзик · 31.03.2013, 13:46

Prolog

p(molotok,1).
p(palatka,3).
p(verevka,2).
 
z(N,[A]):-p(A,N).
z(N,[A,B|Tail]):-N>0, p(A,W), N1 is N-W,
    z(N1,[B|Tail]), compare(<,A,B).

На свой диалект самостоятельно переведите. Первое правило изменено для полной запаковки. A<B сделано, что бы не просто двух молотков не было, а что бы и не были одинаковые раскладки в разном порядке.

@Ольга Я · 31.03.2013, 15:01 **[ТС]**

Спасибо. Но это работает, только если сумма элементов совпадает с весом рюкзака. Напр: z(4,X).
X = [molotok,palatka] .
Если введу : z(10,X). выведет no

@Грымзик · 31.03.2013, 15:11

Тогда не поняла, что означает "полная" упаковка, если 10 вообще невозможно полностью упаковать. Если устраивает не полная упаковка, то верните первое правила.

@Ольга Я · 31.03.2013, 15:58 **[ТС]**

если предположим грузоподъемность рюкзака 10 , то туда можно положить и палатку и молоток и веревку., так как все войдет.

@Ольга Я 0 / 0 / 0 Регистрация: 03.02.2013 Сообщений: 13
	31.03.2013, 15:01 [ТС]	3
	Спасибо. Но это работает, только если сумма элементов совпадает с весом рюкзака. Напр: z(4,X). X = [molotok,palatka] . Если введу : z(10,X). выведет no 0

@Грымзик 2505 / 1480 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	31.03.2013, 15:11	4
	Тогда не поняла, что означает "полная" упаковка, если 10 вообще невозможно полностью упаковать. Если устраивает не полная упаковка, то верните первое правила. 0

@Ольга Я 0 / 0 / 0 Регистрация: 03.02.2013 Сообщений: 13
	31.03.2013, 15:58 [ТС]	5
	если предположим грузоподъемность рюкзака 10 , то туда можно положить и палатку и молоток и веревку., так как все войдет. 0

Опции темы