Юмор разных лет

IF (FOUND)то же самое, что FOUND

STATE is RULEZто же самое, что RULEZ

4. Цикл DO

По замыслу создателей языка, должен быть самым употребительным оператором. Действительно, разве всех нас не учили в детстве, что единственный путь к известности и достатку — труд? Однако многие из нас выросли и нашли разные пути к достатку и без утомительных циклов DO. К примеру, молодая девушка пишет в газеты бесплатных объявлений: «18 лет, обаятельная-привлекательная 90-60-90, без специальных навыков, рассмотрю предложения от $500». Кстати, разберем это объявление на Male C и попробуем сделать выводы.

MONEY is EMPTY;

SEEK (WORK); IF (MONEY $500) BREAK; /*Облом*/

DO {

SEX;

WHILE (HEALTH is SO-SO); }

Is STATE GOOD?

Молодая-привлекательная без особых навыков, но с запросами от $500 может получить только определенную работу, причем весьма интенсивно. При этом, правда, ответ на последний оператор программы остается открытым. Кое-кому нравиться быть «секретуткой».

5. Особые операторы

Смысл особых операторов можно понять из их перевода. Нет смысла перечислять их все, т. к. список существенно зависит от реализации языка. Однако мы разъясним смысл некоторых, используемых в этом руководстве.

SEEK() — поиск. В скобках указывается переменная, по которой ведется поиск. SEEK (Husband) и SEEK (Lover) далеко не одно и то же, хотя, конечно, каждая женщина надеется, что ее муж всегда будет хорошим любовником, а ее любовник наконец разведется с женой и жениться на ней.

FOUND () — найдено! Что найдено, смотрите в скобках. Следующий пример иллюстрирует хорошо известный факт, что искать черную кошку в темной комнате — безнадежное занятие.

DOUBLE Room = Cat = Black;

SEEK (Cat); FOUND (EMPTY);

6. Оператор RETURN

Все возвращается на круги своя. Таким образом, RETURN непосредственно связан с операторами циклов. Пример:

INT Age;

IF (Age > 50) IF (WORK is GOOD \!\! Alcohol is EMPTY) HEALTH is GOOD;

ELSE HEALTH is BAD;

Age!= RETURN;

DIE;

END;

Конечно, после 50 здоровье уже не то, особенно если вы злоупотребляли. С другой стороны, «Кто не курит и не пьет, тот здоровенький помрёт» — годы не возвратишь.

7. Оператор CONTINUE

Большей частью опять же используется в циклах. Рассмотрим пример:

INT Age;

INT Man;

INT Tired is NO;

IF (Age of Women > 30)

DO { SEX; IF (Man is Tired) { SUX; LOVE is NO;

BREAK;}

CONTINUE; }

Если женщине за тридцать и ее мужу где столько же или больше, то для него начинаются трудные времена. Если он будет постоянно ссылаться на усталость, то женщину ждет облом, неудовлетворенность в любви и вообще SUX. А если не будет, но вы полагаете, что будет RULEZ? А вот и нет. Есть только продолжение, продолжение и продолжение.

8. Оператор SWITCH

Переключаться в жизни необходимо постоянно. И вынуждено, и просто потому, отдых необходим. Следующий пример иллюстрирует тот простой факт, что отдых — смена деятельности.

DOUBLE Relax;

DO {WORK; WHILE (HEALTH is SO-SO)}

SWITCH (MONEY) { CASE ($1000): СANARY; CASE ($500): RelaxHouse;

CASE ($10): BEER;}

HEALTH is GOOD;

Вопрос, как подействуют Канары, Дом Отдыха или пиво на здоровье конкретного индивида, остается открытым. Мы надеемся, что оно улучшиться (даже от пива).

9. Оператор BREAK

BREAK — оператор аварийного выхода, чаще всего в негативном смысле (облом). Разберем пример:

CHAR WORK is Empty;

SEEK (WORK);

FOUND;

SWITCH (MONEY) { CASE ($10/Month): BREAK; CASE ($100/Month):

BREAK;

CASE ($1000/Month): RULEZ; }

Результат поисков работы может быть разным. Если зарплата меньше $1000 в месяц — SUX и BREAK (т. е. облом). Еще пример:

INT Glass;

IF (SUX) { DO Glass BREAK; }

RULEZ;

Рецепт улучшения настроения — битье посуды совершенно непонятен мужчинам. Однако, представьте, что на месте Glass (бокала) могли бы оказаться вы…

10. Оператор GOTO

GOTO — оператор языка, которым пользователи Male C обмениваются с друг другом. Очень удобно: ваш шеф просит вас принести квартальный отчет, а вы посылаете его в $%# до переполнения его стека терпения. Другой случай: даже если вы очень торопитесь, советуем все же воспользоваться переходом, а не бежать сломя голову прямо через дорогу.