ymarkov: (Default)
[personal profile] ymarkov
Код на языке "Превед"
http://sizeof.livejournal.com/23169.html


Правильно работающий код(tm).


Draft standard here: http://voffka.com/archives/2006/03/22/025807.html (c) Voffka -- via [info]__anubis__
:)


//
// Превед.cpp : Defines the entry point for the console application.
//

#include <iostream>

#include <locale.h>

//------------------------------------------------------------------
// The PREVED Language Kernel area. Do not touch! :)

#if !defined (_MSC_VER) || _MSC_VER < 1400

#error Wrong compiler! Use MSVS 8.0
#endif

#define НАЧЕЛ      {

#define КОНЧЕЛ     ;}
#define ТИПА       int
#define ВДРУГ      if (

#define ТАДА       )
#define НИХРИНА    else
#define ВЗАД       return
#define КАГДИЛА    (

#define ЙО         ;
#define ЖЖОШ(p,n)  for (; (p) <= (n); (p)++)

#define БАЗАР      std::cout << 
#define СЛЫШЬ      << 
#define СТОЙ       system ("echo. & pause");

#define БЛИН       _wsetlocale (LC_ALL, L"Russian_Russia.ACP");

#define ВРОДЕ      try 

#define ИБАНУЦЦО   throw
#define АПСТЕНУ    catch (const char* __чё__)

#define ПРЕВЕД     ТИПА main КАГДИЛА ТАДА
#define МЕДВЕД     ВЗАД 0; КОНЧЕЛ

// End of area
//------------------------------------------------------------------

ТИПА КРУТО КАГДИЛА ТИПА фигня ТАДА
    НАЧЕЛ
    БАЗАР "ВАЩЕ " ЙО

    ВДРУГ фигня == 8 ТАДА ИБАНУЦЦО "мля! " ЙО
    ВЗАД 0

    КОНЧЕЛ

ПРЕВЕД
    НАЧЕЛ
    БЛИН

    ВРОДЕ НАЧЕЛ

    ТИПА фишка = 0 ЙО

    ЖЖОШ (фишка, 10)
        НАЧЕЛ
        БАЗАР фишка СЛЫШЬ " "; 
        ВДРУГ фишка >= 5 ТАДА КРУТО (фишка) ЙО

        КОНЧЕЛ

    КОНЧЕЛ АПСТЕНУ НАЧЕЛ
        БАЗАР "ИБАНУЦЦО invoked: " СЛЫШЬ __чё__;

    КОНЧЕЛ

    СТОЙ
    МЕДВЕД
_Winnie C++ Colorizer



А один там добавил вот такой исторический перл:
"Когда деревья были большими, а я читал книжки про Basic, в конце книжки обнаружил русифицированную версию языка. Язык назывался Васик (или просто Вася) и в нем был гениальный оператор ИДИНА (GOTO). И это в начале 90-х! А вы: превед-медвед…"

Profile

ymarkov: (Default)
Yisroel Markov

January 2026

S M T W T F S
    123
45678910
1112 13 14151617
181920 21222324
25262728293031

Most Popular Tags

Style Credit

Expand Cut Tags

No cut tags
Page generated Jan. 23rd, 2026 09:09 am
Powered by Dreamwidth Studios