Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

ФИЛП Теория (Книга)

.pdf
Скачиваний:
52
Добавлен:
15.06.2014
Размер:
1.03 Mб
Скачать

yаборы(X, L, M) if M > 0 append(_, [X2|T2], L), M1 = M – X2,

M1 >= 0,

наборы(Y, [X2|T2], M1), X = [X2|Y].

101