Недавно добавленные исходники

•  TDictionary Custom Sort  535

•  Fast Watermark Sources  899

•  3D Designer  1 827

•  Sik Screen Capture  1 474

•  Patch Maker  1 482

•  Айболит (remote control)  1 406

•  ListBox Drag & Drop  1 174

•  Доска для игры Реверси  21 785

•  Графические эффекты  1 354

•  Рисование по маске  1 294

•  Перетаскивание изображений  1 096

•  Canvas Drawing  968

•  Рисование Луны  813

•  Поворот изображения  770

•  Рисование стержней  814

•  Paint on Shape  493

•  Генератор кроссвордов  762

•  Головоломка Paletto  667

•  Теорема Монжа об окружностях  855

•  Пазл Numbrix  617

 

 

Архив исходников

   
  Базы данных
  Графика & Мультимедиа
  Сети & Интернет
  Система
  Разное
   

Ссылки и Баннеры ...

 

Delphi Sources

Delphi Sources

 




 

ИСХОДНИК ПРОГРАММЫ

 

. : Acrostic Variation : .

 

Delphi - Программа для решения кроссвордов Акростик

Исходник программы, показывающей пример создания головоломки «Акростик», которая раскрывает 13-й (неуказанный) вид транспорта в серых областях кроссворда, когда он решен.

Проблема была смоделирована введением «правила пересечения» записей для каждой пары слов, которые пересекаются друг с другом. Позиции слов пронумерованы от H1 до H6 и от V1 до V6 слева направо и сверху вниз. Таким образом, H1 (2), V1 (2) указывает, что горизонтальное слово H1 и вертикальное слово V1 пересекаются во второй букве каждого слова. Программа присоединяет строковый список пар слов «Кандидат», которые могут соответствовать требованиям правила.

Запись TRulerec разбивает текст каждого правила на отдельные поля и добавляет список строк Candidates для хранения пар слов, которые имеют совпадающие буквы в указанных положениях пересечения. Процедура SearchBtn сначала создает массив Rules из TRuleRec на основе отображаемых правил пересечения и строит список кандидатов для каждого правила. После создания этого массива Rules мы вызываем функцию CheckCandidates для каждого правила, чтобы рекурсивно обработать пары слов-кандидатов. AssignedList - это строковый список типа Name = Value с «Word = Assigned location» для всех слов с указанием того, какой позиции слова было присвоено это слово со специальным индикатором (буква «N»), устанавливается, если это слово доступно. CheckCandidates обрабатывает список кандидатов в поисках пары доступных слов, которые он может назначить. Если он находит пару, он назначает их и вызывает себя со следующим номером правила. Если для текущего правила не могут быть назначены никакие кандидаты, функция возвращает «False» вызывающему (предыдущее правило), которое затем отменяет присвоение своих последних назначений и пробует следующую пару кандидатов и т.д. Процесс продолжается до тех пор, пока все правила не будут выполнены. Если у нас есть решение, или все правила исчерпали всех своих кандидатов, и в этом случае решения не существует. Это классический «поиск в глубину с рекурсией», который до сих пор кажется мне волшебством)

Я добавил функцию сортировки массива Rules перед решением, чтобы уменьшить длину пути поиска. Первоначальный порядок - по номеру слова по горизонтали, но я добавил параметры для сортировки, увеличив длину списка слов кандидатов (выполняется намного быстрее) или по убыванию числа пересечений для горизонтального слова (умеренно быстрее). Идея сортировки по размеру списка кандидатов заключалась в том, что меньшее количество кандидатов будет быстрее размещать нужные слова, и похоже, что это так. Для убывающего числа пересечений идея заключалась в том, чтобы сначала поставить слова с наибольшим количеством пересечений, но, похоже, это еще не все. Остается открытым вопрос, существуют ли более эффективные способы предварительного выбора порядка правил для повышения эффективности. Обработка правил со словами, пересекающими последние помещенные слова, может быть более «похожей на человека» и быть даже более эффективной.

Просмотры: 392
Дата: 06.07.2021, Автор: Gary Darby
Написать сообщение:
 

 

Скачать (66 Кб)   ↓ 8   Регистрация >>

 

© 2004-2022 "DS"

Соглашение пользователя / Реклама / Карта сайта             Created by BrokenByte Software