Выбор из оставшихся

                    [2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 15, 14, 15, 16] ).

                                              % Диагонали, идущие сверху вниз

реш([ ], [ ], Dy, Du, Dv).

реш( [Y | СписY], [X | Dx1], Dy, Du, Dv) :-

        удалить( Y, Dy, Dy1),

            % Выбор Y-координаты

        U is X-Y

                            % Соответствующая диагональ вверх

        удалить( U, Du, Du1),

            % Ее удаление

        V is X+Y

                           % Соответствующая диагональ вниз

        удалить( V, Dv, Dv1),

            % Ее удаление

        реш( СписY, Dх1, Dy1, Du1, Dv1).

                                                  % Выбор из оставшихся значений

удалить( А, [А | Список], Список).

удалить(A, [В | Список ], [В | Список1 ] ) :-

        удалить( А, Список, Список1).


Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---

---

---