From 26d3b55c4f60f061539c06fdac116dc3563e8e99 Mon Sep 17 00:00:00 2001 From: Sergey Matveev Date: Tue, 27 Sep 2022 10:35:12 +0300 Subject: [PATCH] =?utf8?q?=D0=94=D0=B5=D0=BD=D1=8C=20=D1=80=D0=BE=D0=B6?= =?utf8?q?=D0=B4=D0=B5=D0=BD=D0=B8=D1=8F=20=D0=9B=D0=B0=D1=80=D1=80=D0=B8?= =?utf8?q?=20=D0=A3=D0=BE=D0=BB=D0=BB=D0=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit https://habr.com/ru/company/timeweb/blog/689804/ Все комментарии, на момент написания, о том, что это первый язык программирования у людей. У меня тоже. Когда писал dmon.pl (569cee2631ad9139e0f4d48d28f9ca9553a1f0b5), то всё же массу удовольствия от писанины на нём получаю до сих пор. Еще в студенческие годы Ларри Уолл женился, и у них с супругой появилась одна мечта на двоих: найти где-нибудь на просторах Африки бесписьменный язык, и создать для него систему письма, над которой он тогда трудился. и вот он создал Perl для этого. Pathologically Eclectic Rubbish Lister. Хотя, как говорит Уолл, название не было акронимом, а является, действительно, "жемчужиной" и отсылкой к библии. Символом созданного им языка Уолл сделал верблюда -- удивительное животное, которое в отличие от программистов на Perl может не пить до 30 дней отличается силой и необычайной выносливостью. (вроде бы, но поверю) Работающая программа на Perl 3: BEFOREHAND: close door, each window & exit; wait until time. open spellbook, study, read (scan, select, tell us); write it, print the hex while each watches, reverse its length, write again; kill spiders, pop them, chop, split, kill them. unlink arms, shift, wait & listen (listening, wait), sort the flock (then, warn the "goats" & kill the "sheep"); kill them, dump qualms, shift moralities, values aside, each one; die sheep! die to reverse the system you accept (reject, respect); next step, kill the next sacrifice, each sacrifice, wait, redo ritual until "all the spirits are pleased"; do it ("as they say"). do it(*everyone***must***participate***in***forbidden**s*e*x*). return last victim; package body; exit crypt (time, times & "half a time") & close it, select (quickly) & warn your next victim; AFTERWORDS: tell nobody. wait, wait until time; wait until next year, next decade; sleep, sleep, die yourself, die at last -- 2.50.0