?

Log in

No account? Create an account

По следам наших выступлений - Общество дровосеков Бердичева по изучению Мишны

Dec. 19th, 2016

08:39 pm - По следам наших выступлений

Previous Entry Share Next Entry

(см. предыдущий пост)
Я чувствую себя Франкенштейном!

Эту программу не запускали, поди, более 30 лет!

:fours;

DО УОU КNОW НОW ТО РLАУ АGАINSТ ТНIS РRОGRАМ
:no
ТНЕ GАМЕ IS РLАУЕD ОN А 4*4*4 СUВЕ. ТНЕ ОВJЕСТ
ВЕING ТО РLАСЕ 4 РIЕСЕS IN А SТRАIGНТ LINЕ; УОUR
РIЕСЕS АRЕ SНОWN АS Х , МINЕ АS О . ТО МАКЕ А
МОVЕ УОU НАVЕ ТО ТУРЕ IN 3 NUМВЕRS, INDIСАТING
РLАNЕ, RОW АND СОLUМN; ЕАСН IN ТНЕ RАNGЕ 0 ТО 3.
ТНUS IN ТНЕ ВОАRD SНОWN ВЕLОW, УОU НАVЕ А РIЕСЕ
АТ 1 3 2  АND I НАVЕ ОNЕ АТ 2 0 3.

      0         1         2         3

   0 1 2 3   0 1 2 3   0 1 2 3   0 1 2 3
 0 . . . .   . . . .   . . . О   . . . .
 1 . . . .   . . . .   . . . .   . . . .
 2 . . . .   . . . .   . . . .   . . . .
 3 . . . .   . . Х .   . . . .   . . . .

УОU САN АSК ТНЕN СОМРUТЕR ТО SUGGЕSТ А МОVЕ ВУ ТУРING  НЕLР
АND САN СОNСЕDЕ ВУ ТУРING  RЕSIGN
DО УОU WАNТ ТО SТАRТ
:yes
      0         1         2         3

   0 1 2 3   0 1 2 3   0 1 2 3   0 1 2 3
 0 . . . .   . . . .   . . . .   . . . .
 1 . . . .   . . . .   . . . .   . . . .
 2 . . . .   . . . .   . . . .   . . . .
 3 . . . .   . . . .   . . . .   . . . .

УОUR МОVЕ
:0 0 0

МУ МОVЕ 0 0 3

      0         1         2         3

   0 1 2 3   0 1 2 3   0 1 2 3   0 1 2 3
 0 Х . . О   . . . .   . . . .   . . . .
 1 . . . .   . . . .   . . . .   . . . .
 2 . . . .   . . . .   . . . .   . . . .
 3 . . . .   . . . .   . . . .   . . . .

УОUR МОVЕ
:0 1 1

МУ МОVЕ 0 3 3

      0         1         2         3

   0 1 2 3   0 1 2 3   0 1 2 3   0 1 2 3
 0 Х . . О   . . . .   . . . .   . . . .
 1 . Х . .   . . . .   . . . .   . . . .
 2 . . . .   . . . .   . . . .   . . . .
 3 . . . О   . . . .   . . . .   . . . .

УОUR МОVЕ
:0 1 3

МУ МОVЕ 0 1 2

      0         1         2         3

   0 1 2 3   0 1 2 3   0 1 2 3   0 1 2 3
 0 Х . . О   . . . .   . . . .   . . . .
 1 . Х О Х   . . . .   . . . .   . . . .
 2 . . . .   . . . .   . . . .   . . . .
 3 . . . О   . . . .   . . . .   . . . .

...
Ну, проиграл, конечно.
:2 2 1

МУ МОVЕ 1 0 2

      0         1         2         3

   0 1 2 3   0 1 2 3   0 1 2 3   0 1 2 3
 0 Х . . О   . . О .   . О . .   О . . .
 1 О Х О Х   . . . .   . О . .   . . . .
 2 Х Х Х О   . Х Х .   . Х . .   . . . .
 3 Х О . О   . . . .   . . . .   . . . .


I WIN.  DО УОU WАNТ ТО РLАУ АGАIN
:no
ВАСК ТО РОР2 ТНЕN


Я весь тащусь.

Comments:

[User Picture]
From:ramlamyammambam
Date:December 20th, 2016 05:11 am (UTC)
(Link)
Сильно!
Напиши инструкцию по запуску для публики?
(Reply) (Thread)
[User Picture]
From:spamsink
Date:December 20th, 2016 06:39 am (UTC)
(Link)
Пока неясно, как читать программы с диска, нет смысла. Вводить с помощью copy-paste утомительно.
(Reply) (Parent) (Thread)
[User Picture]
From:ramlamyammambam
Date:December 20th, 2016 06:56 am (UTC)
(Link)
Вот список препринтов ИПМ:

Программирование на языке Поплан // ИПМ АН СССР, 1976 г., 76 с. (Ходулев А.Б., Баяковский Ю.М., Вьюкова Н.И., Галатенко В.А)

Описание библиотеки Поплан-программ // ИПМ АН СССР, 1978 г., 54 с. (Ходулев А.Б., Вьюкова Н.И., Галатенко В.А, Мишакова С.Т.).

Описание языка Поплан, часть 1 // Препринт ИПМ АН СССР № 12, 1978 г., 45 с. (Ходулев А.Б., Баяковский Ю.М., Вьюкова Н.И., Галатенко В.А)

Описание языка Поплан, часть 2 // Препринт ИПМ АН СССР № 38, 1978 г., 53 с. (Ходулев А.Б., Баяковский Ю.М., Вьюкова Н.И., Галатенко В.А)
(Reply) (Parent) (Thread)
[User Picture]
From:spamsink
Date:December 20th, 2016 06:59 am (UTC)
(Link)
Без текста это слабо помогает. И я уже нашел одну залипуху: целые числа не печатаются. pr(10) будет двоеточие.
(Reply) (Parent) (Thread)
[User Picture]
From:ramlamyammambam
Date:December 20th, 2016 07:38 am (UTC)
(Link)
Попробую закинуть письмо Саше Лапинскому насчёт препринтов.
(Reply) (Parent) (Thread)
[User Picture]
From:spamsink
Date:December 20th, 2016 05:08 pm (UTC)
(Link)
Спасибо. Я его не знаю.
(Reply) (Parent) (Thread)
[User Picture]
From:ramlamyammambam
Date:December 20th, 2016 07:43 am (UTC)
(Link)
Да, этот PDF есть в статье POP-2 в википедии. Там еще один имеется, "Introduction to POP-2". Но неясно, какое подмножество языка мы имеем.
(Reply) (Parent) (Thread)
[User Picture]
From:spamsink
Date:December 20th, 2016 05:07 pm (UTC)
(Link)
Вроде, довольно полное. Кстати, для вещественных чисел в POP-2, как и в Алголе, используется ⏨

Edited at 2016-12-20 05:07 pm (UTC)
(Reply) (Parent) (Thread)
[User Picture]
From:bangor_flying
Date:December 20th, 2016 06:04 am (UTC)
(Link)
Помню эту игру под названием 3D Tic Tac Toe на 8-разрядном компьютере Атари, а также на картридже для приставки Атари 2600 (это одна из первых выпущенных массово компьютерных игр вообще примерно в 1978 году), кроме того, видел варианты для PC на языке BASICA времен MS-DOS 1.1.
(Reply) (Thread)
[User Picture]
From:spamsink
Date:December 20th, 2016 06:57 am (UTC)
(Link)
Интересно, насколько хорошо они играли. Я пока не разбирался, каким алгоритмом пользуется эта программа, но знаю точно, что доступной ей памяти было довольно мало, не более 15 тысяч слов.
(Reply) (Parent) (Thread)
[User Picture]
From:bangor_flying
Date:December 20th, 2016 09:57 am (UTC)
(Link)
Кстати, она оказывается существовала еще в 50е годы на ассемблере компьютера TX-0 и на Фортране тоже - An implementation in Fortran was written by Robert K. Louden and presented, with extensive description of its design, in his book Programming the IBM 1130 and 1800. Its strategy involved looking for combinations of one or two free cells shared among two or three rows with particular contents.[
(Reply) (Parent) (Thread)
[User Picture]
From:spamsink
Date:December 20th, 2016 04:54 pm (UTC)
(Link)
Гарантированность выигрыша для первого игрока была доказана сильно позднее, а собственно стратегия была представлена еще позднее. Вот и интересно, как часто эти программы выигрывают, делая первый ход.
(Reply) (Parent) (Thread)
[User Picture]
From:spamsink
Date:December 21st, 2016 12:13 am (UTC)
(Link)
Первым ходом поплановская программа проигрывает против Qubist на уровне Advanced, и выигрывает на уровне Intermediate. И даже вторым ходом выигрывает на уровне Intermediate.
(Reply) (Parent) (Thread)
[User Picture]
From:bvlb
Date:December 20th, 2016 08:25 am (UTC)
(Link)
а как вы ее запустили?
(Reply) (Thread)
[User Picture]
From:spamsink
Date:December 20th, 2016 05:02 pm (UTC)
(Link)
Не знаю, с какой степенью подробности отвечать. Если совсем вкратце, то компилятор, похоже, рассчитан на какую-то устаревшую версию ОС, и интерфейс некоторых системных вызовов, которые он использует, отличается от "современных" (пришлось в эмуляторе добавить); также возможно, что имеются какие-то недоделанные хаки в попытках прикрутить бинарник к новой версии.

Edited at 2016-12-20 05:21 pm (UTC)
(Reply) (Parent) (Thread)
[User Picture]
From:whocares1970
Date:December 20th, 2016 01:52 pm (UTC)
(Link)
Клaсс!
(Reply) (Thread)
[User Picture]
From:spamsink
Date:December 20th, 2016 05:06 pm (UTC)
(Link)
Спасибо!
(Reply) (Parent) (Thread)