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


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

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


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

Код на Lisp
  1.   
  2. clauses  
  3. del ( [ X | Y1], X, Z1 ) :- !, del ( Y1, X, Z1 ).  
  4. del ( [ Y | Y1], X, [ Y | Z1] ) :- !, del ( Y1, X, Z1 ).  
  5. del ( [ ], X, [ ] ).  
  6.  
При использовании обязательна ссылка на 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.     
  4. predicates    
  5.    start(i,i)    
  6.    d(i,i)    
  7.    p(i,i)    
  8. clauses    
  9.    d(1,1).    
  10.    d(1,2).    
  11.    p(1,5).                  ----- красное отсечение   
  12.    p(1,6).                  |    
  13.    p(2,7).                 \ /    
  14. start(X,Y) :- d(X,Z),p(Z,Y),!. --т.е. влияет на работу программы  
  15.   
  16. goal    
  17. start(1,Y),write(Y),fail.
При использовании обязательна ссылка на http://DMTSoft.ru