Больше месяца назад, Microsoft User Group Винница объявила конкурс, суть которого была в том, чтобы рассказать анекдот или историю с помощью программного кода. Призы были более чем стимулирующими — это Windows 7 Ultimate.

Время шло и накопилось достаточно много шуток-прибауток, спасибо всем участникам. Сегодня MSUG объявляет результаты конкурса.

Первое место и первый счастливый обладатель Windows 7 Максимальной — Виталий Домников (dotCypress). Виталий написал очень много интересных примеров, но большей популярности у общественности достиг следующий код.

if (Measure())
{
  if (Measure())
  {
   if (Measure())
   {
    if (Measure())
    {
     if (Measure())
     {
      if (Measure())
      {
       if (Measure())
       {
        Cut();
       }
      }
     }
    }
   }
  }
}

Второе место — Colwin и его исполнение хита Beatles, которому отправляется Windows 7 Максимальная.

class LetItBe
{
  private Author I;
  private Author me;
  private MotherMary MotherMary;
  private MotherMary she;

  public LetItBe()
  {
   I = Author.instance();
   me = I;
   MotherMary = MotherMary.instance();
   she = MotherMary;
  }

  public static void main(String[] args)
  {
    if (I.FindMyself() && timesOfTrouble())
    {
      MotherMary.comesTo(me);
      MotherMary.speak(WordType.WORDS_OF_WISDOM, "Let it be");
    }
    if (I.isHourOfDarkness()) {
     assert (she.isStanding(Position.IN_FRONT_OF, me));
     she.speak(WordType.WORDS_OF_WISDOM, "Let it be");
    }
    letItBe();
    letItBe();
    I.whisper(WordType.WORDS_OF_WISDOM, "Let it be");
  }
}

Но и на этом мы не остановимся, поощрительные призы получают:

Painkiller за украинскую классику.

procedure Salo;
  var arrSaloLocations : array [0..25] of OleVariant;
  var oUkrNight, oSalo : OleVariant;
  var oOldSaloLocation : OleVariant;
  var ixSaloLocationsArray : integer; 
begin
  if (not oUkrNight.Noise) then
    if (oSalo.Exists) then
    begin  
      oOldSaloLocation := oSalo.Location;
 
      repeat
        ixSaloLocationsArr := Random(VarArrayLowBound(arrSaloLocations), VarArrayHighBound(arrSaloLocations));
      until (oOldSaloLocation <> arrSaloLocations[ixSaloLocationsArray]);
 
      oSalo.Location := arrSaloLocations[ixSaloLocationsArray];
    end;

Антон aka ant99 за его шутку:

SELECT name FROM european_proletarians
UNION
SELECT name FROM asian_proletarians
UNION
SELECT name FROM african_proletarians
UNION
SELECT name FROM american_proletarians
UNION
SELECT name FROM australian_proletarians

А также: orange_guard, Mezomish, Varnak, Mikant

Все они получат любые 3 книги из следующего списка. Просьба победителей связаться с нами для получения призов.

Мы благодарим всех участников и предлагаем всем принять участие в акции «книга за статью».

P.S. Приятно, что наша идея пошла в массы.