С предыдущего хабратопика я понял, что хабражителям очень понравился сапер на своих батниках и поэтому рискнул написать еще одну игру, а именно — Судоку. И опять же, на своих батниках.
Как и Minesweeper, Sudoku for cmd.exe имеет ряд следующих преимуществ:
- Оригинальное лого
- Двухцветный текстовой графический интерфейс (фон — чёрный, текст — серый)
- Возможность воспроизведения программы практически на любом компьютере
Вообще, игра Судоку одна из сложнейших в реализации. Проблема заключается в генерации нормальной таблицы. Итак, у нас есть поле 9x9=81 клеток. В каждую клетку можно вписать одну из девяти цифр. Чрезвычайно много вариаций, чтобы решить перебором. Вместо этого используются готовые таблицы. Объясню суть.
Можно создать несколько таблиц, в которых вместо цифр используются буквы (латинский квадрат :-)). Всего букв девять — abcdefghi. Букву 'a' можно заменить на 9, 8, 7 и т.д. В результате мы можем с одной таблицы получить 9!=362880 вариаций. Неплохо? А вот и сам код, который мешает цифры:
REM Загадочный алгоритм, обеспечивающий 9!=362880 вариаций таблицы судоку. for /L %%i in (1,1,9) do set replmap%%i=%%i set replcounter=0 :replcycle set temp1=%random:~-1% if %temp1% == 0 goto replcycle set temp2=%random:~-1% if %temp2% == 0 goto replcycle set /a replcounter+=1 call set temp=%%replmap%temp1%%% call set replmap%temp1%=%%replmap%temp2%%% call set replmap%temp2%=%temp% set "temp=" if %replcounter% LSS 504 goto replcycle REM END CYCLE :replcycle
Краткая суть алгоритма: в переменные replmap1 — replmap9 заносятся цифры от 1 до 9 в рандомном порядке. После проделываем замену букв на числа, содержащиеся в этих переменных. К примеру, в replma1 будет число 5. Тогда буква 'a' будет заменена на число '5'. Переменная map содержит выбранную в рандомном порядке карту.
call :replacestr map a %replmap1% call :replacestr map b %replmap2% call :replacestr map c %replmap3% call :replacestr map d %replmap4% call :replacestr map e %replmap5% call :replacestr map f %replmap6% call :replacestr map g %replmap7% call :replacestr map h %replmap8% call :replacestr map i %replmap9% REM ... Много интересного и не очень кода ... :replacestr REM Функция замены строки. call set temp=%%%1%% call set temp=%%temp:%2=%3%% set %1=%temp% goto:eof
После мы должны убрать несколько десятков цифр с таблицы, что не составляет особой проблемы. Также не является проблемой UI, который был нагло украден с Сапера и немного доработан. Также была сворована функция подсчета времени.
Второй проблемой в реализации Судоку была заключительная проверка: победил ли пользователь? Можно было тупо посчитать кол-во двоек, троек и прочих чисел в каждой строке, столбце, квадрате, но это слишком скучно. Было решено просто сосчитать сумму и произведение чисел. Простой, элегантный метод, который превратился черт знает что. Кстати, определить точное местонахождение ошибки таким методом можно только с точностью до строки/столбца/квадрата и только при полном заполнении последнего.
Повторяю, что скачать Судоку вы сможете здесь: Plain Text | Google Docs
