Взаимные угрозы шахматных фигур
в числовой разнице
Решил переосмыслить оригинальную идею Александра В. Катапанга младшего
(Alexander V. Catapang Jr.), реализованную в шахматном тренажёре «Guess-Chess»
из пакета логических игр «eGames» (1997-й год). Получившуюся программу
вначале обозвал «Загадочные шахматы» («Riddle chess»), но поскольку не
ограничивается только индийскими шахматами, и есть дополнительно тайские
макрук (makruk), китайские сянци (xiangqi) и японские сёги (shogi) — стала
«Генератором загадок» («Divine generator»).
Игра заключается в угадывании расположения фигур на доске, исходя из
количества обозначенных угроз на клетках. В оригинальной версии
поддерживаются только классические шахматы. При этом фигуры изначально
располагаются на доске, могут конфликтовать и являться препятствиями, что
несколько затрудняет разгадку.
Вот задача из оригинальной версии, запускающейся в операционных системах
(оболочках ДОС) Windows 3.x:
Все фигуры в задачах являются условно серыми, не белыми и не чёрными.
Соответственно убираем те, ход которых зависит от цвета. А именно пешка в
шахматах; пешка или ракушка (биа) и слон (кхон) в макрук; пешка в сянци; пешка,
токин, копьё, конь, серебряный генерал, золотой генерал в сёги. Заодно убираем
также и ту, которой необходима для взятия другая фигура как трамплин, это пушка
в сянци. В результате в шахматах, сянци и сёги оказывается по 5, а в макрук 4
действующих фигур.
Были созданы таблицы: 8 × 8 для шахмат и макрук, 9 × 10 для сянци и 9 × 9 для
сёги; в которых первая, левая верхняя клетка, получила обозначение в 101, а
каждая последующая прибавляла по единице.
Ставим главную фигуру в центр, и подкрашиваем те № полей, откуда доступны
угрозы. В данных таблицах красным обозначены кони, зелёным — слоны, синим —
ладьи (туры), ферзи совмещают ходы двух последних. Таблицы для шахмат и
макрук отличаются только отсутствием слонов, в сёги отсутствуют кони, ходы
остальных фигур в целом соответствуют. А вот для сянци, в виду ограничений
королей (генералов) и советников крепостями, а слонов реками, и заодно
особенностями ходов — алгоритм размещает короля (генерала) и советника, ходы
которого не обозначены, в разные крепости. Совпадения на клетках и взаимные
угрозы главных фигур для простоты принимаем за значения от 0 до 10. После
высчитывания разницы между обозначенными клетками и клеткой расположения
главной фигуры получается результат:
Шахматы Макрук Сянци Сёги
0
0
0
0
1
1
1
1
2
2
2
2
3
3
3
3
4
4
4
4
5
5
5
5
6
6
6
6
7
7
7
7
8
8
8
8
9
9
9
9
10
10
10
10
11
11
14
14
15
15
16
16
16
16
17
17
17
17
18
18
18
18
19
19
20
20
21
21
24
24
24
24
27
27
27
27
28
28
30
30
32
32
32
32
35
35
36
36
36
36
40
40
40
40
42
42
45
45
45
45
48
48
48
48
49
49
50
50
54
54
54
54
56
56
56
56
60
60
63
63
64
64
70
70
72
72
80
80
63
63
81
Ранний Бейсик, в отличии от современных диалектов, является языком
программирования для не программистов, например инженеров. Далее привожу
часть кода, легко адаптируемого к другим видам, для обычных шахмат:
' Объявляем все переменные целыми числами.
DefInt A-Z
' Запускаем зависимость генератора случайных чисел от системного времени.
Randomize Timer
' Создаём двумерный массив шахматной доски с № клеток.
Dim Shared chebo(8, 8) As Integer
Let index = 100
For row = 1 To 8: For col = 1 To 8
Let chebo(row, col) = index + 1
Let index = index + 1
' Создаём одномерный массив со списком угрожающих значений и заполняем
значениями.
Dim dif(31)
Let dif(1) = 0
Let dif(2) = 1
Let dif(3) = 2
Let dif(4) = 3
Let dif(5) = 4
Let dif(6) = 5
Let dif(7) = 6
Let dif(8) = 7
Let dif(9) = 8
Let dif(10) = 9
Let dif(11) = 10
Let dif(12) = 14
Let dif(13) = 15
Let dif(14) = 16
Let dif(15) = 17
Let dif(16) = 18
Let dif(17) = 21
Let dif(18) = 24
Let dif(19) = 27
Let dif(20) = 28
Let dif(21) = 32
Let dif(23) = 35
Let dif(23) = 36
Let dif(24) = 40
Let dif(25) = 42
Let dif(26) = 45
Let dif(27) = 48
Let dif(28) = 49
Let dif(29) = 54
Let dif(30) = 56
Let dif(31) = 63
Next col: Next row
' Генерируем расположение 1-й фигуры (короля) по координатам X и Y.
Let dc1x = Int(Rnd * 8 + 1)
Let dc1y = Int(Rnd * 8 + 1)
' Получаем № клетки исходя из получившегося расположения 1-й фигуры.
Let f1 = chebo(dc1x, dc1y)
' Ставим метку начала генерации.
chessgenerate:
' Генерируем расположение 2-й фигуры (ферзя) по координатам X и Y.
Let dc2x = Int(Rnd * 8 + 1)
Let dc2y = Int(Rnd * 8 + 1)
' Получаем № клетки исходя из получившегося расположения 2-й фигуры.
Let f2 = chebo(dc2x, dc2y)
' Проверяем конфликтность между 1-й и 2-й фигурами:
For index = 1 To 31
If Abs(f1 - f2) = dif(index) Then GoTo chessgenerate
Next index
' Генерируем расположение 3-й фигуры (слона) по координатам X и Y.
Let dc3x = Int(Rnd * 8 + 1)
Let dc3y = Int(Rnd * 8 + 1)
' Получаем № клетки исходя из получившегося расположения 3-й фигуры.
Let f3 = chebo(dc3x, dc3y)
' Проверяем конфликтность между 1-й и 3-й, 2-й и 3-й фигурами:
For index = 1 To 31
If Abs(f1 - f3) = dif(index) Then GoTo chessgenerate
If Abs(f2 - f3) = dif(index) Then GoTo chessgenerate
Next index
' Генерируем расположение 4-й фигуры (коня) по координатам X и Y.
Let dc4x = Int(Rnd * 8 + 1)
Let dc4y = Int(Rnd * 8 + 1)
' Получаем № клетки исходя из получившегося расположения 4-й фигуры.
Let f4 = chebo(dc4x, dc4y)
' Проверяем конфликтность между 1-й и 4-й, 2-й и 4-й, 3-й и 4-й фигурами:
For index = 1 To 31
If Abs(f1 - f4) = dif(index) Then GoTo chessgenerate
If Abs(f2 - f4) = dif(index) Then GoTo chessgenerate
If Abs(f3 - f4) = dif(index) Then GoTo chessgenerate
Next index
' Генерируем расположение 5-й фигуры (ладьи) по координатам X и Y.
Let dc5x = Int(Rnd * 8 + 1)
Let dc5y = Int(Rnd * 8 + 1)
' Получаем № клетки исходя из получившегося расположения 5-й фигуры.
Let f5 = chebo(dc5x, dc5y)
' Проверяем конфликтность между 1-й и 5-й, 2-й и 5-й, 3-й и 5-й, 4-й и 5-й
фигурами:
For index = 1 To 31
If Abs(f1 - f5) = dif(index) Then GoTo chessgenerate
If Abs(f2 - f5) = dif(index) Then GoTo chessgenerate
If Abs(f3 - f5) = dif(index) Then GoTo chessgenerate
If Abs(f4 - f5) = dif(index) Then GoTo chessgenerate
Next index
' Контрольная проверка на отсутствие конфликтов между всеми фигурами.
For index = 1 To 31
If Abs(f1 - f2) = dif(index) Then GoTo chessgenerate
If Abs(f1 - f3) = dif(index) Then GoTo chessgenerate
If Abs(f1 - f4) = dif(index) Then GoTo chessgenerate
If Abs(f1 - f5) = dif(index) Then GoTo chessgenerate
If Abs(f2 - f3) = dif(index) Then GoTo chessgenerate
If Abs(f2 - f4) = dif(index) Then GoTo chessgenerate
If Abs(f2 - f5) = dif(index) Then GoTo chessgenerate
If Abs(f3 - f4) = dif(index) Then GoTo chessgenerate
If Abs(f3 - f5) = dif(index) Then GoTo chessgenerate
If Abs(f4 - f5) = dif(index) Then GoTo chessgenerate
Next index
В общем получаем универсальный ряд из 42 чисел для всех четырёх
разновидностей шахмат: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 14, 15, 16, 17, 18, 19, 21,
20, 24, 27, 28, 30, 32, 35, 36, 40, 42, 45, 48, 49, 50, 54, 56, 60, 63, 64, 70, 72, 80,
81.
' Записываем ряд из 42 чисел.
Data
0,1,2,3,4,5,6,7,8,9,10,11,14,15,16,17,18,19,21,20,24,27,28,30,32,35,36,40,
42,45,48,49,50,54,56,60,63,64,70,72,80,81
' Объявляем массив соответствующего размера.
Dim Shared dif(1 To 42) As Integer
' Заполняем значениями из ряда чисел.
For index = 1 To 42
Read dif(index)
Next index
Изначально максимальное количество угроз на клетку равняется количеству
задействованных фигур. Однако после проверки на конфликтность становится
меньше на 1 в макрук и сёги, на 2 в сянци, и лишь шахматы сохраняют 5 в крайне
ограниченном количестве расстановок.
Исходный код: http://sf.net/projects/divgen/
Тематический сайт: http://truechess.org/
Спасибо за внимание!
