Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [AutoLisp] Реализация продукционной системы 
V
    Опции темы
SH_07
Дата 6.5.2007, 20:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 6.5.2007

Репутация: нет
Всего: нет



Упрошенная версия задачи хода конем. Конь может перемещаться на 2 поля по горизонтали или вертикали и на одно поле в перпендикулярном направлении. При этом он не долженвыйти за пределы шахматной доски, размер которой 3Х3. Найти такую последовательность хода конем, при которой он становится на каждую клетку только 1 раз. Центральную клетку не нужно посещать.
PM MAIL   Вверх
VH_
Дата 7.5.2007, 15:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 182
Регистрация: 31.10.2006

Репутация: 1
Всего: 11



Нумерация клеток доски:
Код
1 2 3
8   4
7 6 5

Основа: Хювёнен-Сеппянен "Мир Лиспа" т.2 стр.74-79
Код
(setq *productions*
  (list
   '(1 4)  '(1 6)
   '(2 5)  '(2 7)
   '(3 6)  '(3 8)
   '(4 1)  '(4 7)
   '(5 2)  '(5 8)
   '(6 1)  '(6 3)
   '(7 2)  '(7 4)
   '(8 3)  '(8 5)))

Код
(defun ROUTE (start finish order)
  (search finish (applied start) (list start) order))

Код
(defun APPLIED (situation)
  (mapcan
  (function
   (lambda (rule)
    (if (eq situation (car rule))
     (list rule)
     nil)))
   *productions*))

Код
(defun SEARCH (finish plan solution order)
  (cond
   ((null plan) nil)
   ((eq finish (second (car plan)))
    (reverse (cons finish solution)))
   ((member (second (car plan)) solution)
    (SEARCH finish (cdr plan) solution order))
   ((SEARCH finish (funcall order plan) (cons (second (car plan)) solution) order))
   (T
    (SEARCH finish (cdr plan) solution order))))

Код
(defun IN-DEPTH (plan)
  (append (applied (second (car plan))) (cdr plan)))

Код
(defun IN-BREADTH (plan)
  (append (cdr plan) (applied (second (car plan)))))

> (route '1 '6 'IN-DEPTH)
(1 4 7 2 5 8 3 6)
www.progz.ru/forum
PM MAIL   Вверх
SH_07
Дата 9.5.2007, 19:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 6.5.2007

Репутация: нет
Всего: нет



Большое спасибо за ответ!!!!!  smile 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »


 




[ Время генерации скрипта: 0.1029 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.