Играем супротив алгольной программы 60-летней давности

[vak]

Херики-оники, так называлась игра до большевизма. В оригинале это японская гомоку, то есть пять в ряд на доске 15x15.

Предлагаемая вашему вниманию программа для игры в гомоку была написана в 1964 году на языке Алгол-60 для компьютера Electrologica X1. Сообщения и комментарии в программе на голландском. Что логично, так как и компьютер был голландский, и сам Алгол-60 тоже придумали голландцы. Разработка компьютера Electrologica X1 была темой докторской диссертации известного Эдсгера Дейкстры.

Сохранились перфолента и кодом программы и распечатка исходного текста. Материалы можно найти на Гитхабе: github.com/cwi-software-archive/Algol60/tree/main/Quinio.



Лёня spamsink адаптировал эту программу для БЭСМ-6. Вот исходный текст: quinio.dub. Вы можете запустить её на своём компьютере с помощью эмулятора ОС Дубна:

git clone https://github.com/besm6/dubna.git
cd dubna
make install
cd examples/games
dubna quinio.dub

Так выглядит процесс игры:

$ dubna quinio.dub 
                                             24 ИЮЛ 24 13.31
 ЙOKCEЛ      БЭCM-6/5     ШИФP-12
 MOHИTOPHAЯ CИCTEMA  ′Д Y Б H A′  -  20/10/88


             ЖЖЖ  Ж   Ж  ЖЖЖ  Ж   Ж  ЖЖЖ   ЖЖЖ
            Ж   Ж Ж   Ж   Ж   ЖЖ  Ж   Ж   Ж   Ж
            Ж   Ж Ж   Ж   Ж   Ж Ж Ж   Ж   Ж   Ж
            Ж   Ж Ж   Ж   Ж   Ж  ЖЖ   Ж   Ж   Ж
            Ж Ж Ж Ж   Ж   Ж   Ж   Ж   Ж   Ж   Ж
            Ж  ЖЖ Ж   Ж   Ж   Ж   Ж   Ж   Ж   Ж
             ЖЖЖ   ЖЖЖ   ЖЖЖ  Ж   Ж  ЖЖЖ   ЖЖЖ
                Ж

*NAME QUINIO
*CALL SETFTN:ONE,LONG
*ALGOL
                                             24 ИЮЛ 24 13.31
A L G O L - Г Д P
    (7.01.82)
...
PROGRAM   ДЛИHA:  964 01704B BPEMЯ:  0.00 CEK. KAPT: 307

*NO LIST
*FTN
*NO LOAD LIST
*EXECUTE
 FIELD SIZE =             15
 WHO PLAYS FIRST, YOU (1), OR I (0)?
0

 MOVE  1                                                 8- 8
           1  2  3  4  5  6  7  8  9 10 11 12 13 14 15
      1    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      2    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      3    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      4    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      5    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      6    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      7    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      8    .  .  .  .  .  .  .  *  .  .  .  .  .  .  .
      9    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     10    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     11    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     12    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     13    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     14    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     15    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
 ENTER ROW:
9
 ENTER COLUMN: 
7
 MOVE  2                                                 9- 7
           1  2  3  4  5  6  7  8  9 10 11 12 13 14 15
      1    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      2    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      3    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      4    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      5    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      6    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      7    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      8    .  .  .  .  .  .  .  X  .  .  .  .  .  .  .
      9    .  .  .  .  .  .  O  .  .  .  .  .  .  .  .
     10    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     11    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     12    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     13    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     14    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     15    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
 ARE YOU SURE (1), OR NOT (0)?
1
 MOVE  3                                                 8- 7
           1  2  3  4  5  6  7  8  9 10 11 12 13 14 15
      1    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      2    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      3    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      4    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      5    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      6    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      7    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
      8    .  .  .  .  .  .  *  X  .  .  .  .  .  .  .
      9    .  .  .  .  .  .  O  .  .  .  .  .  .  .  .
     10    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     11    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     12    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     13    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     14    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
     15    .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
 ENTER ROW:
-

И так далее. Нельзя сказать что программа сильно играет. Тем не менее прикольно оживить код, которому 60 лет.

Comments

[juan_gandhi]

А, так вы теперь можете и на компатных многообразиях её имплементировать. 6x8 достаточно. Можно на торе, можно на бутылке Клейна. У нас она была (или даже есть) где-то на интернете имплементирована... но, с концами. До гитхаба дело было.

[vak]

Развить алгоритм игры интересная задачка.
Но много ли у нас осталось компиляторов Алгола на современных компьютерах? 😀

[prool]

Помнится, в начале перестройки и єпохи кооперативов ленинградский кооператив "КТОР" придумал игру "ктор" (клеточный тор) и рассылал почтой наборы для игры. Правила я плохо помню, но чем-то она напоминала го или рендзю или и то и то.

И еще, обратили внимание, распечатка сделана на нотной бумаге

[vak]

Вроде где-то в сети можно скачать бинарник этой игры CTOR для Windows.

Бумага похожая на нотную, но на самом деле это так называемая continuous form paper. Они бывала с полосками разных видов. Полоски помогали бегать глазами по строчкам.