Пролог Д списки

 
+1
 
Prolog | Функциональные языки
ava
qsxesz | 08.02.2013, 19:15
задача:загрузить набор грузов, заданный списком весов грузов в несколько одинаковых грузовиков.
Код Prolog
select(a,[a|B],B).
select(x,[a|B],[a|C]):-select(x,B,C).

gruz(A,B,C,D):-gruz1(A,B,B,C,D).

gruz1([],_,_,_,[]).
gruz1(L,c,f,n,[a|D]):-select(a,L,M),
НЕ(БОЛЬШЕ(a,c)),gruz1(M,#c-a#,f,n,D).
gruz1(L,_,f,n,["|"|D]):-БОЛЬШЕ(n,0),gruz1(L,f,f,#n-1#,D).

?gruz([17,13,9,7,4,3,2,5,6,3,1],20,4,V),!.


вызов([список масс грузов], грузоподъемность, количество грузовиков, %ответ%)

тут четыре грузовика,а как сделать чтобы грузовики тоже как и грузы задавались списком?
Ответы (0)

Комментарии не добавлены

Зарегистрируйтесь или войдите, чтобы написать.
Фирма дня
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Участники
  qsxesz
advanced
Отправить