Вопрос 2. Привести пример программы, использующий "красное отсечение".


Добавил:DMT
Дата создания:30 декабря 2007, 19:20
Дата обновления:30 декабря 2007, 19:20
Просмотров:6503 последний вчера, 7:53
Комментариев: 3
Вопрос 2. Привести пример программы, использующий “красное отсечение”.
up

Комментарии для "Вопрос 2. Привести пример программы, использующий "красное отсечение". "


Пользователь: DMT
Сообщений: 123
Статус: Программист
Зарегистрирован:
18 октября 2007, 2:35
Был:13 ноября 2017, 4:54
DMT
smsup
Дата: 4 января 2008, 13:54 Сообщение № 1
Красные отсечения

Код на Lisp
  1. clauses
  2. del ( [ X | Y1], X, Z1 ) :- !, del ( Y1, X, Z1 ).
  3. del ( [ Y | Y1], X, [ Y | Z1] ) :- !, del ( Y1, X, Z1 ).
  4. del ( [ ], X, [ ] ).
  5.  
При использовании обязательна ссылка на http://DMTSoft.ru
Пользователь: kate
Сообщений: 9
Статус: Незримый
Зарегистрирован:
4 января 2008, 14:05
Был:28 января 2008, 21:05
kate
smsup
Дата: 4 января 2008, 14:35 Сообщение № 2
У меня такой же код!:)
Пользователь: lilo
Сообщений: 38
Статус: Незримый
Зарегистрирован:
8 января 2008, 12:39
Был:9 апреля 2008, 19:55
lilo
smsup
Дата: 8 января 2008, 12:49 Сообщение № 3
Код на Lisp
  1. domains
  2. i=integer
  3. predicates
  4. start(i,i)
  5. d(i,i)
  6. p(i,i)
  7. clauses
  8. d(1,1).
  9. d(1,2).
  10. p(1,5). ----- красное отсечение
  11. p(1,6). |
  12. p(2,7). \ /
  13. start(X,Y) :- d(X,Z),p(Z,Y),!. --т.е. влияет на работу программы
  14. goal
  15. start(1,Y),write(Y),fail.
При использовании обязательна ссылка на http://DMTSoft.ru