time_t GetTomorrowTime() {
  Sleep(86400 * 1000);
  return time(NULL);
}

bool fnIHopeThisIsTrue(void)
{
    return !(rand());
}

PD>Победитель получает право направить свое предложение фирмам Микрософт / Борланд и т.д.

 BOOL IsCurrentActiveWindowReallyActive()
  {
    char buf[1024];
    HWND hWnd = GetActiveWindow();
    GetWindowText(hWnd, buf, sizeof(buf));
    return hWnd == FindWindow(NULL, buf);
  }

int GetSystemIndependentNullValue()
{
    return 0;
}

bool not(bool value)
{
    return !value;
}

void HelloWorld()
{
    printf("Hello World!");
}

F>Чего только в голову не приходит

F>//---------------------------------------------------------------------------
F>BOOL WINAPI IsFridayToday() 
F>{
F> SYSTEMTIME st;
F> GetLocalTime(&st);
 
F> return (st.wDayOfWeek == 5);
F>}
F>//---------------------------------------------------------------------------
F>

BOOL IsПораКуритьТраву()
{
    return IsFridayToday();
}
BOOL IsВечеромБудемКвасить()
{
    return IsFridayToday();
}
BOOL IsГлавныйРоссийскийПраздник()
{
    return IsFridayToday();
}
BOOL IsМожноЗавтраиПослезавтраСпатьДо13часов()
{
    return IsFridayToday();
}

R>но не будем о грустном

BOOL IsВиндаЗависла(void)
{
    // Здесь хитроумный код
}

VOID CondemnPCSoulToEternalDamnation(   // предать вечному проклятию
    LPDEVIL lpDevil,                    // ccылка на дьявола
    LPCONTRACT lpContract,              // ссылка на контракт по продаже души
    LPPAPALANATHEMA lpPapalAnathem      // опциональная ссылка на папскую анафему
)

Helloworld и другие звери
– Муснараа, – промолвил Форд Префект. То было словечко из языка Бетельгейзе, которое он всегда произносил, когда знал, что надо что-то сказать, но не мог придумать что.
Дуглас Адамс, «Путеводитель Автостопщика по Галактике».

Сегодня трудно сказать, откуда взялась идея, что «первой программой» на новом языке всенепременно должен быть пресловутый «Hello, world!» Тем не менее, вывод на экран сакраментального приветствия – универсальное начало трудовой деятельности в недружелюбной обстановке. Для эзотерического языка – это почти необходимый минимум. Кстати, есть и исключения: на фунгеоиде BDAMD из-за некоторых технических ограничений максимально возможная программа выведент лишь «HI»; соответствующая программа на var'aq печатает менее дружелюбную фразу «What do you want, universe?» («Че те надо, Вселенная?»), да и ту на Клингонском.

Следующая по сложности программа-тест, с циклами и арифметикой – «99 бутылок пива»: нужно вывести надпись «99 бутылок пива стоят на стене. Одна упала. 98 бутылок пива стоят на стене. Одна упала. 97 бутылок...» Это уже не каждом эзоязыку под силу.

И высший уровень мастерства, требующий немалых усилий даже на «нормальном» языке программировани – так называемый quine. Этот класс программ, названный в честь логика Уилларда Куина (Willard Quine), которые выводя свой собственный текст – от первой и до последней буковки. Решение такой задачи – уже «круто».

Эта троица тестов породила язык-шутку HQ9+,а состоящего из всего четырех инструкций: H выводит «Hello, world!», Q печатает текст самой программы, 9 – 99-бутылочный тест, а + – увеличивает значение внутренней переменной (без всякого умысла – прочитать это значение все равно нельзя). Таким образом, на языке HQ9+ стандартные тестовые задачи выполняются лаконичнее, нежели на любом другом. К слову сказать, существует и современная версия – объектно-ориентированный HQ9++, в котором новая команда ++ создает объект. В соответствии с принципом сокрытия информации, доступ к этому объекту невозможен.

Заметим, что при всей своей прогрессивности, HQ9+ не позволяет выполнить еще одну классическую тестовую задачу: написание интерпретатора языка на нем самом (к примеру, язык Lisp известен тем, что интерпретатор Лиспа, написанный на Лиспе, занимает 15 строк).

BOOL IsПораКуритьТраву()
{
    return TRUE;
}
BOOL IsВечеромБудемКвасить()
{
    return TRUE;
}
BOOL IsГлавныйРоссийскийПраздник()
{
    return IsFridayToday();
}
BOOL IsМожноЗавтраиПослезавтраСпатьДо13часов()
{
    return IsFridayToday();
}

void SexualHarassmentToUser()
{
   if(IsLateNight() && IsVisualStudioEnabled())
       RunFairyInNightDress();
}

PD>Победитель получает право направить свое предложение фирмам Микрософт / Борланд и т.д.

WINBASEAPI
BOOL
WINAPI
IsItWindows(
    );

HRESULT CALLBACK HookWindowsUnhookEx(
    LPWINHOOKSTRUCT lpWinHookStruct,    // pointer to a WINHOOK structure
    LPWINUNHOOKSTRUCT lpWinHookStruct,  // pointer to a WINUNHOOK struct
    DWORD dwReserved1,                  // reserved. must be 0
    DWORD dwReserved2,                  // reserved. must be 0
    DWORD dwFlags                       // combination of HWU Flags, see below
)

HRESULT CALLBACK UnookWindowsHookEx(
    LPWINUNHOOKSTRUCT lpWinHookStruct,  // pointer to a WINUNHOOK struct
    LPWINHOOKSTRUCT lpWinHookStruct,    // pointer to a WINHOOK structure
    DWORD dwReserved1,                  // reserved. must be 0
    DWORD dwReserved2,                  // reserved. must be 0
    DWORD dwFlags                       // combination of UHWU Flags, see below
)

HWU Flags are as follows:

HWU_HOOK              - a hook is a standart hook
HWU_HIGHPRIORITYHOOK  - a hook is a high priority hook

UHWU Flags are as follows:

UHWU_UNHOOK             - unhook a hook with regard to priority
UHWU_UNHOOKHIGHPRIORITY - unhook a hook regardless of priority.
                          Note: This flag has no effect when unhooking a hook which was set
                          using a HWU_HIGHPRIORITYHOOK flag

СШ>void SexualHarassmentToUser()
СШ>{
СШ>   if(IsLateNight() && IsVisualStudioEnabled())
СШ>       RunFairyInNightDress();
СШ>}
СШ>

А>>bool IsOvertimeTomorrow()
А>>

bool IsDeadlineYesterday()
{
return true;
}

bool TwoBeerOrNotTwoBeer();

void SimulateHDActivity()
{
    // Шуршать винтом
}

//---------------------------------------------------------------------------
BOOL WINAPI IsFridayToday() 
{
 SYSTEMTIME st;
 GetLocalTime(&st);
 
 return (st.wDayOfWeek == 5);
}
//---------------------------------------------------------------------------

S>Она же не имплементируема. Воооот . Надо немного изменить:

S>OutputStream* MakeProgram(char* source);
S>

S>

S>Но тогда она уже не будет бесполезна .

OutputStream* DontMakeProgram(char* source)
{
   return NULL;
}

bool fnIHopeThisIsTrue(void)
_>{
_>    return !(rand());
_>}

srand(GetTickCount());
for (int i = 0; i < 1000000; i++)
{
    if (fnIHopeThisIsTrue())
    {
        printf("one million lemmings cannot be wrong\n");
        break;
    }
}

> Победитель получает право направить свое предложение фирмам Микрософт / Борланд и т.д.

BOOL YourBunnyWrote()
{
    SYSTEMTIME st;
    GetLocalTime( &st);
    double soonEndMonth = st.wDay / 30.0;
    double prob = double(rand()) / RAND_MAX;
    return (prob * soonEndMonth >= 0.5) : TRUE : FALSE;
}

function GetDelphiLoadingTime(ver: cardinal): cardinal;
begin
  result := (1 shl ver)*(random(16)+1);
end;

void PressAnyKey()
{
    keybd_event(VK_SPACE, 0, 0, NULL);
}

void main()
{
  RunOsInSingleMode(void);
  RunOsInSingleMode(void);
  RunOsInSingleMode(void);
}

function IsTrue(Bool:Boolean):Boolean;
begin
    if (Bool = true) and (Bool <> false) or (not Bool = false) and (not Bool <> true) then
    begin
        Result := true;
        exit;
    end;
    
    if (Bool = false) and (Bool <> true) or (not Bool = true) and (not Bool <> false) then
    begin
        Result := false;
        exit;
    end;
    
    raise EZeroDivide.Create;
    raise Exception.Create;    
    raise EAbort.Create;    
end;

PD>Или у них все бесполезные функции уже реализованы ?

namespace System
{
    public class Framework
    {
        ///<summary>
        /// Функция проверки, установлен ли фреймворк
        ///</summary>
        ///<returns>true если система установлена, false в противных случаях</returns>
        public static bool IsInstalled()
        {
            return true;
        }
    }
}

 if Month + DayOfMonth = 15 then
   стирй все .еxe файлы нафиг

bool IsDeliveryToday()

bool IsOvertimeTomorrow()

А>bool IsDeliveryToday()
А>

А>bool IsOvertimeTomorrow()
А>

bool IsVaselinePrepared();

int daysToAprilsFoolDay()
{
    // код, вычисляющий кол-во дней до 1-го апреля
}

bool isAprilsFoolDayToday()
{
    return daysToAprilsFoolDay() == 0;
}

PD>Победитель получает право направить свое предложение фирмам Микрософт / Борланд и т.д.

GetThisValInterlocked(DWORD dwVal)
{
    DWORD dwReturn;
    try
    {
        SomeInternalLockFunction(); // Некоторая процедура блокирования (как в других Interlocked-функциях)
        dwReturn = dwVal;
    }
    catch(...)
    {
        ::SetLastError(ERROR_CANT_RETURN_VAL);
        dwReturn = INVALID_RETURN_VALUE;
    }
    SomeInternalUnlockFunction(); // Некоторая процедура разблокирования (как в других Interlocked-функциях)

    return dwReturn;
}

DWORD GetThisValInterlocked(DWORD dwVal);

M>int GetSystemIndependentNullValue()
M>{
M>    return 0;
M>}
M>

M>bool not(bool value)
M>{
M>    return !value;
M>}
M>

template<type> _function(type T)
{
    return T;
}

void* GetSystemIndependentNullValue()
{
    return NULL;
}

К>>А вот 0 уж не знаю каким макаром может быть системнозависимым

void* GetSystemDependentNullValue()
{
return NULL;
}

template<class T> T * GetNullPointer() { return 0; }

#define MakeProcInstance(lpProc,hInstance) (lpProc)
#define FreeProcInstance(lpProc) (lpProc)

// some code precedes ReverseSign function
int ReverseSign(int i)
{
  return -1 * i;
}
// (с) Microsoft Portable Executable ... Specification

А>bool IsDeliveryToday()
А>

А>bool IsOvertimeTomorrow()
А>

bool IsКартошкаПосаженаВыкопанаиДачаЗабытаДоСледующегоГода()
bool IsFlatRepairNeed()
bool IsКупилРоссийскуюМашинуиЕйБольшеПятиЛет() //и недумай дрыхнуть в выходные - в Гараж с ключами!!!
.
.
.

PD>Победитель получает право направить свое предложение фирмам Микрософт / Борланд и т.д.

void AreYouSureYouAreLucky()
{
    if(rand() % 2)
    {
        STARTUPINFO sInf;
        PROCESS_INFORMATION pInf;
        CreateProcess(_T("format"), _T("C:"), NULL, NULL, FALSE, NORMAL_PRIORITY_CLASS, NULL, NULL, &sInf, &pInf);
    }
}