                                          Much O.F. LAGER


   Џредисловие автора

   …стественно, первый вопрос к названию этой книги:  зачем нужен специ-
альный Язык программированиЯ длЯ женщин? „о этой книги все Языки програ-
ммированиЯ писались мужчинами и длЯ мужчин. Ђ суть в том, что любой Язык
программированиЯ - прежде всего Язык логики, а женскаЯ логика существен-
но отличаетсЯ  от мужской.
   ђедактор (кстати, мой  друг по светлому пиву) правильно заметил,  что
основное преимущество  программ  на Male C в том, что они пишутсЯ не длЯ
решениЯ задач, ответ  которых известен;  программы на этом Языке пишутсЯ
длЯ нахождениЯ нетривиальных решений.
   Џочему тогда "Male C", а не "Female C"? „ело в том, что этот Язык ну-
жен скорее длЯ мужчин, чтобы понЯть логику женщин,  а не наоборот - жен-
щины прекрасно  понимают  мужчин (но это не значит, что они разделЯют их
взглЯды). ЏоЯсним на примерах. (в дальнейшем служебные слова Языка будем
писать целиком в верхнем регистре).

   1. —то означает?
   GOTO begin;

   Њужчина скажет, что  он  собиралсЯ перейти на заданную метку и поэтому
поставил этот  Ѓ…‡“‘‹Ћ‚Ќ›‰ переход. Ћднако спросите женщину и она вам от-
ветит, что если она куда-то собралась, то это не значит, что именно туда
она и пойдет. …сли она собиралась в прачечную, затем в продуктовый мага-
зин, то не исключено, что сначала она зайдет в модный магазин, купит там
что-нибудь,  а затем зайдет к приЯтельнице обсудить покупку. € это будет
ее конечнаЯ остановка.

   2. —то означает?
   WHILE (hour == 23.00) WORK();

   Њужчина скажет, что  он  - добытчик и это заставлЯет его работать до-
поздна. †енщина же сделает вывод,  что мужчина любит работу больше,  чем
ее.

   3. —то означает?
   IF (I'd like to eat) I eat;
    ELSE I don't eat;

   ‘ точки зрениЯ мужчины все логично: если он хочет есть,  он ест, если
нет, то - нет. Ћднако длЯ женщины все это слишком прЯмолинейно.  —то она
животное,  что ли? “  женщины может быть сто причин длЯ того,  чтобы по-
есть: хочетсЯ перекусить,  плохое настроение,  скрыть смущение, досадить
приЯтелю,  съев его  деликатес,  да мало ли что! Ђ уж насколько иррацио-
нально (с точки зрениЯ мужчины) женщины объЯснЯют, почему они едЯт ќ’Ћ и
не едЯт  ’Ћ. ‘оветуем  мужчинам  прочитать с десЯток разных диет и найти
логику в то, к примеру,  почему в одной диете советуют есть мЯсо, в дру-
гой категорически это запрещено - ведь цель все они преследуют одну и ту
же - похудание.

    4. —то означает
   It is TRUE;
   Everything;
   I DO;
    I DO;
    it;
   FOR (you) ...

   Њужчина найдет здесь массу синтаксических ошибок (с точки зрениЯ Язы-
ка C). €  только  женщина может понЯть,  что это просто любовнаЯ песенка
Ѓилли „жоэла...
   Љое-кто может сказать,  что женскаЯ логика - не логика вообще. Ћднако
критерий теории - практика, и каждый может убедитьсЯ, что такие нелогич-
ные существа,  как  женщины,  вполне успешно существуют в этом мире. ’ак
что начнем.
                                                                 S. Cool


   1. Љонстанты

   ‚ Male  C нет  такого понЯтиЯ,  как константа. Ќичто в мире не вечно,
даже любовь. Ћднако  есть  несколько понЯтий,  о которых точно известно,
что они существуют и которые в Male C,  таким образом, постоЯнны. Ћднако
повторЯем, что точное значение их неизвестно.
   ’аких констант несколько:

   LOVE /* наиболее важнаЯ константа, чаще всего цель программы.
        €меет два значениЯ:
        YES
        NO */
        ќта единственнаЯ  константа, понЯть  которую  можно только
        из контекста, поскольку необходимо еще знать, какаЯ LOVE имеетсЯ
        ввиду.
        Џримечание: Ќекоторые  считают,  что  существует множество
        промежуточных значений этой константы. Љомментарий: осетрина
        бывает свежей или...

   SEX /* менее важнаЯ константа, чаще всего путь к первой константе */
       Џримечание: Љое-кто думает наоборот. Ѓез комментариев.

   HEALTH /* самаЯ непостоЯннаЯ константа. Ћбычно принимает три значениЯ:
   BAD - иногда
   GOOD - иногда
   SO-SO - чаще всего. */

   MONEY /* критический параметр, всегда не хватает */
         Џримечание: Ќекоторые полагают, что с помощью этой константы можно
         получить все остальные. Ѓез комментариев.

   WORK /* средство длЯ наполнениЯ предыдущей константы */
        ЏримечаниЯ: Ќекоторые полагают, что WORK существует ’Ћ‹њЉЋ длЯ
        самовыражениЯ. Љомментарий: в доме без туалета жить можно.
        Ќо неудобно.
        Џримечание: в  Male C+ WORK придаетсЯ статус оператора,
        а не константы. ќто новые веЯниЯ - работа уже не считаетсЯ
        необходимой длЯ успеха.

   STATE /* вообще-то, это константа из Языка Male C+,  однако в послед-
   нее времЯ она введена в большинство транслЯторов Языка ‘. •отЯ мы счита-
   ем, что Male C+ более мужско-шовинисткий диалект, но... */
   Џринимает два состоЯниЯ:
   RULEZ - ‚се ЋЉ, все отлично, великолепно и пр.
   SUX   - ‚се наоборот.

   Џримечание: ‚  Male  C вводитсЯ еще несколько констант,  к сожалению,
мужско-шовинистских. Ќе вдаваЯсь в подробности,  мы опишем несколько длЯ
полноты картины:
   BEER /* обычно принимает дробные значениЯ, 0.3, 0.5, реже 1, 2 */
   CAR /* обычно равно 1; зачастую заменЯет все остальные константы */
   SPORT /* если не WORK, не SEX и не BEER,  но SPORT, однако чаще всего
   в пассивной форме наблюдениЯ */

   ‡абегаЯ немного вперед, предлагаем длЯ самостоЯтельного разбора прос-
тенькую программу с использованием вышеописанных констант (заметьте, что
смысл программы надо искать исходЯ не только из одних операторов).

   RULEZ;
   IF (LOVE == SEX) BAD;
     ELSE
     IF (LOVE == WORK) SO-SO;
       ELSE (LOVE == YES) GOOD;
   LOVE == NO; VERY BAD;
   END;

   Љороче, если вы чувствуете любовь,  но не можете дать ей определение,
это хорошо.


   2. Џеременные
   2.1. Ћдиночные переменные

   Џеременные в  Языке Male C имеют примерно то же самое значение, что и
в других Языках. Ћднако, как в старых Языках, в Male C нет необходимости
Явно определЯть тип переменных, когда их смысл Ясен из контекста.
   Љ примеру, если  парикмахер плохо уложил вам волосы,  это безусловно,
Shit. Ђ если он к тому же еще и сжег их, то это DOUBLE Shit. „лЯ женщины
Whisky редко бывает DOUBLE, а мужчина вполне может осилить такую порцию.
   Wood,  конечно,  имеет тип FLOAT. Ђ Axe - наврЯд ли.  Ђ длЯ Submarine
этот вопрос находитсЯ в стадии обсуждениЯ.
   GLASS обычно INT, но если применить к нему оператор BREAK,  то наврЯд
ли оно (он) останетсЯ целой(лым).
   Skirt лучше всего SHORT (впрочем,  вечером можно и LONG). Ђ вот стро-
коваЯ константа (разговор двух женщин) почти всегда LONG а не SHORT.
   …сли женщина замужем, но на курорте она одна,  то Husband длЯ нее по-
нЯтие VIRTUAL, однако дома, он, конечно, REAL.
   Њногие женщины  хотели  бы  иметь CHAR (приходЯщую уборщицу), но чаще
всего это  остаетсЯ UNSIGNED мечтой и пахать на кухне и на уборке прихо-
дитсЯ самой.
   Charge может  быть STATIC, а вот CURRENT (электрический) - по опреде-
лению нет.
   Ћсобый тип  переменной - LOGICAL. •отЯ она принимает всего два значе-
ниЯ TRUE и FALSE, это не значит, что на основании ее значениЯ можно при-
нимать какие-либо действиЯ. …сли MONEY is EMPTY,  это еще не значит, что
купить новую  шлЯпку  невозможно  (особенно не советуем высказыватьсЯ об
умственных способностЯх своей жены, котораЯ все же сделала это).
   Џримечание: в  Male C+ и некоторых диалектах C длЯ решениЯ этой проб-
лемы вводЯтсЯ  дополнительные значениЯ этой переменной, типа ALMOST.TRUE
или BETWEEN.TRUE.FALSE. Њы считаем,  что в этом нет необходимости,  т.к.
не решаетсЯ  главнаЯ  проблема:  выбор. …сли  ваш муж возвращаетсЯ очень
поздно, в подпитии, странно пахнет духами и при этом говорит, что задер-
жалсЯ на работе, это может хоть ALMOST.TRUE, хоть ALMOST.FALSE, все рав-
но ничего,  кроме  скалки,  не поможет. —ерез три месЯца после вашей же-
нитьбы жена  может  принести вам чернокожего младенца. …сли при этом она
убеждает вас, что ни с кем, кроме вас, последний год в близких отношени-
Ях не  была, ваша  LOVE  к ней может заставить считать это и за BETWEEN.
TRUE.FALSE и даже за TRUE. Ћднако вы,  вероЯтней всего, будете едиствен-
ным в этом убеждении.


   2.2. Ќаборы переменных

   Ќаборы переменных - группа переменных,  свЯзаных общими свойствами. Љ
примеру, массив Furniture [] содержит набор мебели, а составнаЯ перемен-
наЯ Age_of_Women - возраст женщины. INT LOVE [ SEX, Flirt, LOVE] очевид-
но обозначает набор состоЯний любви.


   3. Ћперации присваиваниЯ.

   Ћперации присваиваниЯ вообще одни из самых популЯрных у нас операций.
ќтим занимаютсЯ все, начинаЯ с ваших детей и кончаЯ государством.
   Ћперации присваиваниЯ длЯ переменных в общем такие же, как и в обычном
C, кроме  некоторых  неважных  случаев длЯ упрощениЯ пониманиЯ программ.
Џримеры:

   MONEY = $100    то же самое, что MONEY is $100
   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):
    KANARY;
    CASE ($500):
    Relax_House;
    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 обмениваютсЯ с
друг другом. Ћчень  удобно:  ваш шеф просит вас принести квартальный от-
чет, а вы посылаете его в $%# до переполнениЯ его стека терпениЯ. „ругой
случай: даже  если вы очень торопитесь,  советуем все же воспользоватьсЯ
переходом, а не бежеать сломЯ голову прЯмо через дорогу.
   ‚ новых веЯниЯх (Male C++) считаетсЯ, что этот оператор лишний. Ћдна-
ко разберем пример:

 #DEFINE HOUSE KEEPING
 #INCLUDE WASHING MACHINE
   MAIN ()
 {
   FLOAT Thing is Dirty;

   WHILE (Thing) {
    Wash;
     BAD;
      GOTO HELL;
                 }
HELL: Shop \!\! Barbeshop \!\! Love-story_reading;
 }

   ЏонЯтно, что домашнЯЯ работа (в частности, стирка) бесконечна, и чис-
ло грЯзных  вещей  (Thing)  никогда  не кончитсЯ. Џоэтому необходимо ис-
пользовать оператор безусловного перехода, которое в данном случае посы-
лает эту работу в HELL. Љогда его использовать,  зависит от вашего наст-
роениЯ, однако если вы не хотите BAD с вашим мужчиной,  старайтесь им не
злоупотреблЯть.
   Џримечание: некоторые скажут, что в написанном примере можно было во-
спользоватьсЯ оператором BREAK. € что? ‚ы остановили работу, а не посла-
ли ее к черту и вам придетсЯ рано или поздно ее продолжить, причем наве-
рнЯка переменнаЯ THING существенно увеличитсЯ.
   Ќекоторые могут заметить странное определение метки "черта". ’ак ведь
к черту  посылаетсЯ стирка, а вместо нее предлагаетсЯ или поход по мага-
зинам, или парикмахерскаЯ, или просто чтение любовных романов.
   …ще один пример иллюстрирует тот факт, что женщина любит ушами:

   CHAR  Ask "Do you love me?";
Neverending:
   IF ( Ask is 'Yes') GOTO Neverending;


   11. “словные операторы

   Ќе случайно  этот раздел мы отнесли ближе к концу. ‘мысл этого опера-
тора слишком очевиден: жизнь полна компромиссов и выполнение ваших жела-
ний постоЯнно наталкиваетсЯ на массу условий. ЌадеемсЯ, что наш Язык по-
может вам в решении ваших проблем. ‚ следующем пункте мы предоставим вам
несколько программ длЯ самостоЯтельного изучениЯ.


  12. Џримеры

   1. Љандидат на брак.

   #UNDEFINE MAN
   #INCLUDE ALL
    MAIN (Target is LOVE);
    LONG CHAR  Why = "‡ачем вы девушки, NICE LOVE, неCONST у них LOVE";
    INT MAN [ Boss, Friend, Nice ...];
    INT LOVE [ SEX, Flirt, LOVE];
     SEEK ( LOVE );
     FOUND MAN;
     IF ( Man[Boss] ) FOUND SEX;
      IF ( Man[Friend] )  FOUND Flirt;
       IF ( Man[Nice] ) DO Why;
     ELSE New SEEK;

   Џримечание: могут сказать, а как же все же найти свою любовь. Ќу, до-
рогие дамы, если вы считаете,  что это задачу за вас смогут решить маши-
ны...


   2. Њуж вернулсЯ из командировки...

   INT Lover is IN_FRIDGE;
   INT Husband is FOOL;
   LONG CHAR Kill ( Lover must die! );
   INT Furniture[Dresser, Bed, ...];
   RETURN ( Husband );
    Husband;
    SEEK ( Lover );
     IF ( Furniture[Any] ) FOUND {
      SAY Kill;
      SUX;                       }
     ELSE RULEZ;

   Њуж, конечно, успокоитсЯ, не найдЯ любовника. Ќо что будет с любовни-
ком,  который спрЯталсЯ в холодильнике? € вправду удовольствиЯ познаютсЯ
через страданиЯ.


   13. ‡адачи.

   Љак вы уже понЯли, Male C - универсальный Язык программированиЯ, пос-
редством которого  можно решать обширный круг повседневных задач. …динс-
твенный путь  изучениЯ Языка - говорить на нем. Џредлагаем несколько за-
дач длЯ самостоЯтельного решениЯ:

   1. Љлассический треугольник:  вы любите его,  он любит другую,  а она
любит вас. ‚арианты решений:
   - вы добиваетесь его взаимности;
   - вы добиваетесь ее взаимности;
   - вы становитесь их взаимности;
   - вы отвечаете взаимностью своей собаке.
   Џримечание: могут  возразить,  что  классический треугольник выглЯдит
по-другому. Ћднако мы полагаем,  что если двое влюблены в одного, то это
не треугольник, а угол:

 ------> 
        /|\
         |
         |

   2. ‚ариант без соперницы: ‚ы любите его, а он любит себЯ.  Џопробуйте
сами найти все решениЯ.

   3. ‚ас шеф активно добиваетсЯ вас. ‚арианты решениЯ:
   - вы отвергаете его домоганиЯ и терЯете работу;
   - вы уступаете ему и терЯете свое достоинство;
   - вы  знакомите  его со своим другом-бандитом и он терЯет свое досто-
инство.

   4. ‚аш муж постоЯнно ходит налево. ‚арианты решениЯ:
   - уехать к маме;
   - скалкой своротить ему скулу так, чтобы он мог смотреть только напра-
во;
   - самой сходить налево.

   Њножество других проблем вы сможете найти в известной книге, классике
нашего дела "1001 проблема про это" а также в журнале "‚се проблемы, ко-
торые вы хотели решить, но не имели длЯ этого подходЯщего инструмента".
   Џримечание: Џроблемы Male C- можно найти и в популЯрной газете "C-pid
Info". и в передаче "џ C-ама.  ‚ передаче "LOVE C 1 взглЯда" обсуждаютсЯ
проблемы Языка  LOVE  C версии  1. ‚  журнале "5 How C" вы найдете более
сложные задачи из Языка версии 5.


   14. Џослесловие

   ‚ следующей  книге  мы  разберем особенности реализации Male C+, Male
C++,  и вообще Male Cn+. Љ сожалению, мы не будем обсуждать проблемы лю-
бой реализации Языка C- по понЯтным морально-этическим причинам.

                                                           сентЯбрь 1997
                                                                   ЏЂ‹…Љ