![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png)
Херики-оники, так называлась игра до большевизма. В оригинале это японская гомоку, то есть пять в ряд на доске 15x15.
Предлагаемая вашему вниманию программа для игры в гомоку была написана в 1964 году на языке Алгол-60 для компьютера Electrologica X1. Сообщения и комментарии в программе на голландском. Что логично, так как и компьютер был голландский, и сам Алгол-60 тоже придумали голландцы. Разработка компьютера Electrologica X1 была темой докторской диссертации известного Эдсгера Дейкстры.
Сохранились перфолента и кодом программы и распечатка исходного текста. Материалы можно найти на Гитхабе: github.com/cwi-software-archive/Algol60/tree/main/Quinio.

Лёня
spamsink адаптировал эту программу для БЭСМ-6. Вот исходный текст: quinio.dub. Вы можете запустить её на своём компьютере с помощью эмулятора ОС Дубна:
Предлагаемая вашему вниманию программа для игры в гомоку была написана в 1964 году на языке Алгол-60 для компьютера Electrologica X1. Сообщения и комментарии в программе на голландском. Что логично, так как и компьютер был голландский, и сам Алгол-60 тоже придумали голландцы. Разработка компьютера Electrologica X1 была темой докторской диссертации известного Эдсгера Дейкстры.
Сохранились перфолента и кодом программы и распечатка исходного текста. Материалы можно найти на Гитхабе: github.com/cwi-software-archive/Algol60/tree/main/Quinio.

Лёня
![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png)
Так выглядит процесс игры:git clone https://github.com/besm6/dubna.git
cd dubna
make install
cd examples/games
dubna quinio.dub
И так далее. Нельзя сказать что программа сильно играет. Тем не менее прикольно оживить код, которому 60 лет.$ 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:
-
no subject
Date: 2024-07-24 21:04 (UTC)А, так вы теперь можете и на компатных многообразиях её имплементировать. 6x8 достаточно. Можно на торе, можно на бутылке Клейна. У нас она была (или даже есть) где-то на интернете имплементирована... но, с концами. До гитхаба дело было.
no subject
Date: 2024-07-25 08:33 (UTC)Но много ли у нас осталось компиляторов Алгола на современных компьютерах? 😀
no subject
Date: 2024-07-25 14:57 (UTC)И еще, обратили внимание, распечатка сделана на нотной бумаге
no subject
Date: 2024-07-25 21:02 (UTC)Бумага похожая на нотную, но на самом деле это так называемая continuous form paper. Они бывала с полосками разных видов. Полоски помогали бегать глазами по строчкам.