Compact Sudoku Solver (Sudoku) [62b] torrent

Игры » Прочее для Windows-игр » Моды, дополнения, утилиты, патчи

Компактный решатель судоку

Название игры: Sudoku
Год выпуска: 2006
Автор/Разработчик: G3 (tgm80@@mail.ru), TFx (tfx@@bitmaster.it), Digimind (digimind@@aha.ru)
Тип раздачи: Other
Версия программы: 62b
Требуемая версия игры: любая
Язык интерфейса: отсутствует / не требуется
Требуемый язык игры: не важно
Описание:
Эта программа поможет в решении головоломок судоку и накрутке таймбонусов.
Отличительные особенности:
- не требует установки;
- решает судоку быстрее человека;
- применяет метод научного тыка, гарантирующий 100% результат;
- влезает на флешку.

Программа разрабатывалась на сайте http://www.hugi.scene.org/compo/compoold.htm#compo25
Но последняя версия там отсутствует.

Ожидается в следующей версии
1. Сканирование и распознавание газетных судоку
2. Решение судоку в интерактивном режиме
3. Тесная интеграция с MS Office

Инструкция по использованию:

1. Вводим головоломку в любом текстовом редакторе

Входные данные состоят из 9 строк.
Каждая строка содержит только ASCII символы от 1 до 9, "." и пробел.
Символ "." обозначает пустую клетку. Все печатные символы разделены пробелами.
Заканчиваться строка должна возвратом каретки и переводом строки (Win).



2. Сохраняем как puzzle.txt в директорию с программой sudoku.com.
При сохранении выбираем кодировку ANSI.
Если все сделать правильно, то размер файла puzzle.txt будет 171 байт
(или 169 байт если отсутствует возврат каретки в последней строке).

3. Переходим в эту директорию проводником Windows

4. Вводим в адресной строке проводника
cmd.exe /K "sudoku.com
[spoiler="Исходник"]
Код:
;===============================================;
; **** Hugi Compo 25 **** ;
; Sudoku Solver - 62 bytes ;
;-----------------------------------------------;
; G3 / tgm80 (at) mail (dot) ru ;
; TFx / tfx (at) bitmaster (dot) it ;
; Digimind / digimind (at) aha (dot) ru ;
;===============================================;
; Compile:
; tasm -m2 entry.asm
; tlink -t entry

model tiny
codeseg
startupcode
.486

mov ah, 3fh ;ah = 3f -> input
mov dx, bp ;bp = buffer
InOutExit:
int 21h ;input/output/exit
xchg ax, cx ;cx = length
inc bx ;stdout handle
Solve:
mov [bp+si], al ;digit is ok
Empty:
dec si ;find empty cell
js InOutExit ;if not found output solution, then exit
mov ax,4031h ;ah = 40 -> output/inc ax
ChkDgt:
cmp byte ptr [bp+si], '.' ;is empty?
jne Empty ;if empty check it else continue
mov di, cx
Next:
dec di ;find digit
pusha
js Solve ;if no more digits set and recurse
cmp [bp+di], al ;else search
jne SetOF
xchg ax, di ;get digit position
Split:
aam 19 ;split row and column
imul ax, 11 ;find 3x3 group
xchg ax, si ;get empty cell position
inc bx
jpo Split ;split empty cell position
xor ax, si ;compare cell positions
test ax, 0e0c0h ;same 3x3 group?
jle NOk
SetOF:
mul ah ;same column or same row?
NOk:
popa
jo Next ;next position
mov byte ptr [bp+si], '.' ;empty cell
cmp al, 39h ;no more digits?
je NOk
jmp ChkDgt-1
end
[/spoiler]
[spoiler="Скриншоты"]





[/spoiler]