?

Log in

No account? Create an account

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

Nov. 15th, 2016

05:51 pm - Старинные подписи к картинкам

Previous Entry Share Next Entry

У розы из предыдущего поста, как было модно с 1980 года, должно было быть имя. Его можно было задавать явно, а если оно не было задано, генерировалось случайное. Например, такие (считайте игрек буквой У):

EKOTЬBAБ ЛЯBECЫXП EMOCИEBE EБЩATИPC TCЫKOГИЧ ЫKOCЛЯOH
OMYШAHИM HИPCTЫKO ЛИPИXПOP ИTTЫBAXC ECЯЗЫKOC ИИЯXПOTC
ПCTHЫИTЬ AHTEHOДO EБOПPИTA ИPEHЫKYД OTBACЫИC CTИTCПPO
HЫTCИЯЗO EИOЛГPOБ YЛЬOBCЫK CEMYЛЬKИ EБOTCOПЫ AДOЗATHИ
COOBOTИM HИЙCЯECT AKEИEИTE ИФOГPCTЬ ПOTTOPИФ BATEДEBA

Особо отмечу "омушаним" и "соовотим", "семульки" (превед Лему) и "ватедева" (звучит по-санскритски; так и оказалось, Dewaté-dewa = great god of gods, говорят нам гуглобуки). А Потториф (Pottorif) - реальная фамилия, говорит нам гугл.

Делалось это следующей процедурой
СОNSТ VL=85;SVL=510;
VAR Z: ARRAY[1..VL] of ALFA; (* packed array [1..6] of char *)
PROCEDURE ФИМЯ(VAR M:ARRAY [1:8] OF CHAR);
LABEL 33;
VAR К,L,N,Р:INТEGER;
    С:ARRAY [1..6] OF CHAR;
    G,R:СНАR;
_(
  33:L:=ТRUNС(RАNDОМ*SVL);
  N:=L DIV 6; 
  L:=L-N*6+1;
  UNРСК(С[1],Z[N+1]);
  М[1]:=С[L];
  G:=C[L];
  IF G=’Ь’ ТНЕN GОТО 33;
  FОR Р:=2 ТО 8 DО _(
    L:=ТRUNС(RАNDОМ*SVL);
    N:=L_DIV 6;
    L:=L-N*6+1;
    N:=N+1;
    UNРСК(С[1],Z[N]);
    RЕРЕАТ
      R:=С[L];
      L:=L+1;
      IF L=7 ТНЕN _(
        L:=1;
        N:=N+1;
        IF N>VL ТНЕN N:=1;
        UNРСК(С[1],Z[N])
      _)
    UNТIL R=G;
    IF L<7 ТНЕN
      G:=С[L]
    ЕLSЕ _(
      IF N>VL ТНЕN N:=1;
      UNРСК(С[1],Z[N]);
      G:=С[1]
    _);
    М[Р]:=G
  _);
  FОR N:=2 ТО 7 DО
    IF (М[N-1]=М[N])∧(М[N]=М[N+1]) ТНЕN GОТО 33; 
_);

Обратите внимание, что словная архитектура машины заставляет прибегать к трюкам, т.к. прямые обращения к элементам упакованных массивов по 6 байт в слове довольно медленные. Эти трюки не должны помешать вам понять, что происходит. Замечу, что делаются специальные проверки, чтобы имя не начиналось с мягкого знака и не содержало трех одинаковых букв подряд.

А теперь гвоздь программы: текст из 510 символов, на основе которого генерируются случайные "имена", таков:


ОБУЧЕНИИ ОПЫТНЫХ ПРОГРАММИСТОВ ТАКЖЕ ИМЕЮТСЯ СИНТАКСИЧЕСКИЕ СЕМАНТИЧЕСКИЕ АСПЕКТЫ КУРСЯ РАЗРАБОТКЕ АЛГОРИТМОВ СОСРЕДОТОЧЕНЫ ЗНАНИЯХ ПОДРОБНОСТИ НИХ СТАРАЮТСЯ ВЫДЕЛИТЬ ОТДЕЛЬНЫЕ ОБСУЖДЕНИЯ ВООБЩЕ ОПУСТИТЬ КУРСАХ ОБУЧЕНИЯ ВТОРОМУ ТРЕТЬЕМУ ЯЗЫКУ ПРОГРАММИРОВАНИЯ ОСНОВНОЕ ВНИМАНИЕ УДЕЛЯЕТСЯ ЭКВИВАЛЕНТАМ ИЗВЕСТНЫХ СЛУШАТЕЛЯМ ПОНЯТИЙ СОЧЛИ ТРЕБОВАНИЕ ИСПЫТУЕМЫМ ЗАДАВАТЬ ВОПРОСЫ ТАКОМ ОГРАНИЧЕННОМ ФОРМАТЕ ПОЗВОЛЯЕТ ИЗМЕРИТЬ СПОСОБНОСТИ РЕШАТЬ ЗАДАЧИ ФОРМУЛИРУЯ ЗАПРОСЫ ИССЛЕДОВАТЬ СИСТЕМЫ ЕСТЕСТВЕННЫМ ЯЗЫКОМ СЛЕДУЕТ ТЩАТЕЛЬНО УЧИТЫВАЯ ПСИХОЛОГИЧЕСКИЕ ПРИНЦИПЫ ПОЛЬЗОВАТЕ

Comments:

[User Picture]
From:yatur
Date:November 16th, 2016 02:20 am (UTC)
(Link)
Мне тебя найти нелегко,
Где же ты моя Нирстыко?

Текст прелестный. Где-то была статья про генератор случайных слов, который потом назвали генератором матюков.

Edited at 2016-11-16 02:21 am (UTC)
(Reply) (Thread)
[User Picture]
From:spamsink
Date:November 16th, 2016 05:58 am (UTC)
(Link)
При случайном блуждании всегда есть риск нарваться на сарай, на котором что-то написано. И что смешно, в моем предыдущем предложении, которое заметно короче 100 букв, есть и пара ПИ, и пара БЛ, а в тексте для программы длиной более 500 букв - ни той, ни другой.
(Reply) (Parent) (Thread)
[User Picture]
From:1500py470
Date:November 16th, 2016 03:18 am (UTC)
(Link)
А в имени бога может быть три одинаковые буквы подряд, Артур Кларк гарантирует это! Да и как быть с классическим ЗМЕЕЕД? Такое богатое слово зарубили :( незабудимнепростим!

Edited at 2016-11-16 03:19 am (UTC)
(Reply) (Thread)
[User Picture]
From:spamsink
Date:November 16th, 2016 05:59 am (UTC)
(Link)
Хорошую розу змееедом не назовут!
(Reply) (Parent) (Thread)
[User Picture]
From:1500py470
Date:November 16th, 2016 06:02 am (UTC)
(Link)
А вот сейчас возник вопрос его в письме тебе писал, а Вакуленко ещё добавил, а где те клочки от Пульса хранятся, на каком образе диска?
(Reply) (Parent) (Thread)
[User Picture]
From:spamsink
Date:November 16th, 2016 06:39 am (UTC)
(Link)
На svs2048.bin, в кодировке ГОСТ 10859-64 (ха-ха-ха, её нет ни в списке годировок утилиты iconv, ни даже в русской википедии).
(Reply) (Parent) (Thread)
[User Picture]
From:1500py470
Date:November 16th, 2016 06:44 am (UTC)
(Link)
А насколь нагло попросить их вытащить в более употребимой кодировке если есть у тебя тайное знание про 10859-64?
(Reply) (Parent) (Thread)
[User Picture]
From:1500py470
Date:November 16th, 2016 06:09 am (UTC)
(Link)
ЗЫ а почему такая дискриминация растений-хищников?
(Reply) (Parent) (Thread)
[User Picture]
From:move2winnipeg
Date:November 16th, 2016 03:55 am (UTC)
(Link)
Вспомнились Досааф и Осоавиахим :)
(Reply) (Thread)
[User Picture]
From:spamsink
Date:November 16th, 2016 06:00 am (UTC)
(Link)
Да уж. Досааф - это, пожалуй, такой альтернативно-мифологический великан, а Осоавиахим - враждовавшее с ним племя.
(Reply) (Parent) (Thread)
[User Picture]
From:1500py470
Date:November 16th, 2016 06:04 am (UTC)
(Link)
Осавиахим это строгий отец, которого пожрал Досааф!

Edited at 2016-11-16 06:04 am (UTC)
(Reply) (Parent) (Thread)
[User Picture]
From:spamsink
Date:November 16th, 2016 06:40 am (UTC)
(Link)
Это эзотерическое мифологическое знание.
(Reply) (Parent) (Thread)
[User Picture]
From:spamsink
Date:November 16th, 2016 03:16 pm (UTC)

Re: Пригов тоже об этом задумывался

(Link)
Далеко простирает фоносемантика руки свои в дела человеческие!
(Reply) (Parent) (Thread)
[User Picture]
From:1500py470
Date:November 16th, 2016 08:01 pm (UTC)

RE: Пригов тоже об этом задумывался

(Link)
Именно этого автора и имел ввиду, мне кажется это была божественная битва отца и сына!
(Reply) (Parent) (Thread)
[User Picture]
From:ilya_dogolazky
Date:November 16th, 2016 11:40 am (UTC)
(Link)
какой-то не наш паскаль, ладно там ни бегина, ни энда, но даже точки в конце не стоит!
(Reply) (Thread)
[User Picture]
From:spamsink
Date:November 16th, 2016 03:14 pm (UTC)
(Link)
Точки в конце не стоит, потому что это не полная программа. Ввод файла с текстом я опустил для краткости.
(Reply) (Parent) (Thread)