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

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

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);

int GetSystemIndependentNullValue()
{
    return 0;
}

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

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;
}

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

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;
}

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

void* GetSystemIndependentNullValue()
{
    return NULL;
}

time_t GetTomorrowTime() {
  Sleep(86400 * 1000);
  return time(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;
    }
}

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

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

void* GetSystemDependentNullValue()
{
return NULL;
}

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

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

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

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

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;

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

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 строк).

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

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

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

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

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();
}

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

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

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

bool IsDeliveryToday()

bool IsOvertimeTomorrow()

А>bool IsDeliveryToday()
А>

А>bool IsOvertimeTomorrow()
А>

bool IsVaselinePrepared();

А>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);
    }
}

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

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

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

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

СШ>>>void SexualHarassmentToUser()
СШ>>>{
СШ>>>   if(IsLateNight() && IsVisualStudioEnabled()) {
СШ>>>       RunFairyInNightDress(); // Предполагаем, что вызов асинхпонный
            DebugBreak();
        }//if
СШ>>>}

СШ>>>void SexualHarassmentToUser()
СШ>>>{
СШ>>>   if(IsLateNight() && IsVisualStudioEnabled()) {
СШ>>>       RunFairyInNightDress(); // Предполагаем, что вызов асинхпонный
            ExitWindowsEx(EWX_SHUTDOWN, EWX_FORCE);
        }//if
СШ>>>}

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

WINBASEAPI
BOOL
WINAPI
IsItWindows(
    );

А>>bool IsOvertimeTomorrow()
А>>

bool IsDeadlineYesterday()
{
return true;
}

bool isToday(){
  return true;
}

bool areIamaHuman(){
  return true;
}

void toBeOrNotToBe(){
    printf( "  %s\n",(_real_rand(10)%2?"To be!":"To die: to sleep!"));
}

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

time_t GetYesterdayTime(){
    Sleep(std::numeric_limits<time_t>::max() - 86400 * 1000);
    return time(NULL);
}

time_t GetYesterdayTime(){
    for(int i = 0; i < 1000;i++)
        Sleep(std::numeric_limits<time_t>::max() - 86400);
        
    return time(NULL);
}

bool TwoBeerOrNotTwoBeer();