Няшная / Говнокод #25226 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
typedef void proc();

proc nop{}
void swap(int *a, int *b) {*a^=*b^=*a^=*b;}

void sort_(int *arr, unsigned len)
{
    (proc*[]){nop, swap}[*arr > arr[1]](arr, arr+1);
    (proc*[]){nop, sort_}[len > 2](arr+1, len-1);
}
void sort(int *arr, unsigned len)
{
    (proc*[]){sort_, nop}[len <= 1](arr, len);
    (proc*[]){nop, sort}[len > 2](arr, len-1);
}

По поводу апнутого #19105.
Ветвление легко имитируеься массивом функий, цикол —– рукурсией. Получилось даже короче и понятнее чем обычный код.

Запостил: Morgoth Morgoth, (Updated )

Комментарии (94) RSS

  • ava nemyx # Ссылка на оригинал 0

    Кукареку:
    {$MODE OBJFPC}
type
  proc1 = procedure(var x: array of integer);
  proc2 = procedure(var x, y: integer);
  generic swtable<T> = array[boolean] of T;
  generic P<T> = class(TObject) public class function switch(x: array of T): specialize swtable<T>; static; end;
  P1 = specialize P<proc1>;
  P2 = specialize P<proc2>;

class function P.switch(x: array of T): specialize swtable<T>; begin switch := x end;

procedure nop2(var x, y: integer); begin end;
procedure swap(var x, y: integer); begin x := x xor y; y:= y xor x; x := x xor y end;

procedure nop1(var arr: array of integer); begin end;

procedure inner_sort(var arr: array of integer);
  begin
    P2.switch([@nop2, @swap])[arr[0] > arr[1]](arr[0], arr[1]);
    P1.switch([@nop1, @inner_sort])[length(arr) > 2](arr[1 .. High(arr)])
  end;

procedure sort(var arr: array of integer);
  begin
    P1.switch([@inner_sort, @nop1])[length(arr) < 1](arr);
    P1.switch([@nop1, @sort])[length(arr) > 2](arr[0 .. High(arr) - 1])
  end;

procedure print_array(arr: array of integer);
  var
    i: integer;
  begin
    for i := Low(arr) to High(arr) do Write(arr[i], ' ');
    Writeln
  end;

var
  x : array[-2 .. 2] of integer = (100500, 265, 1488, 666, 13);
begin
  sort(x);
  print_array(x)
end.


    https://ideone.com/oVoyVb
    Ответить

    • ava nemyx # Ссылка на оригинал 0 ⇈

      Ну или так, чтобы не плодить лишних функций:
      type
  proc1 = procedure(var x: array of integer);
  proc2 = procedure(var x, y: integer);
  SW1 = array[boolean] of proc1;
  SW2 = array[boolean] of proc2;

procedure nop2(var x, y: integer); begin end;
procedure swap(var x, y: integer); begin x := x xor y; y:= y xor x; x := x xor y end;

procedure nop1(var arr: array of integer); begin end;

procedure inner_sort(var arr: array of integer);
  const
    switch1: SW2 = (@nop2, @swap);
    switch2: SW1 = (@nop1, @inner_sort);
  begin
    switch1[arr[0] > arr[1]](arr[0], arr[1]);
    switch2[length(arr) > 2](arr[1 .. High(arr)])
  end;

procedure sort(var arr: array of integer);
  const
    switch1: SW1 = (@inner_sort, @nop1);
    switch2: SW1 = (@nop1, @sort);
  begin
    switch1[length(arr) < 1](arr);
    switch2[length(arr) > 2](arr[0 .. High(arr) - 1])
  end;

procedure print_array(arr: array of integer);
  var
    i: integer;
  begin
    for i := Low(arr) to High(arr) do Write(arr[i], ' ');
    Writeln
  end;

var
  x : array[-2 .. 2] of integer = (10500, 265, 1488, 666, 13);
begin
  sort(x);
  print_array(x)
end.
      Ответить

        • ava nemyx # Ссылка на оригинал 0 ⇈

          Зато у меня более строгая проверка типов.

          typedef void proc(); позволяет ошибочно передать функцию, требующую другого количества аргументов, и поломать стек.
          Ответить

          • ava Morgoth # Ссылка на оригинал 0 ⇈

            Это когда функцию по указателю вызываешь проверки нет, тайпдеф не пиридзёму.
            Стек не поломается, томушо cdecl, вот только если передать меньше аргументов чем надо может хуй пойми где отсортировать хуй пойми что.
            Ответить

      • ava guest # 0 ⇈

        паскаль? с генериками?
        на тебе дырявую тарелку за это
        Ответить

        • ava nemyx # Ссылка на оригинал 0 ⇈

          Во Фрипаскакале есть ещё расширение objective. Ну чтобы писать под Кококококоа:
          https://www.freepascal.org/docs-html/current/ref/refse68.html

          NSView = objcclass external(NSResponder)  
private  
  _subview  : id;  
public  
  function initWithFrame(rect : NSRect): id;  
     message ’initWithFrame:’;  
  procedure addSubview(aview: NSView);  
     message ’addSubview:’;  
  procedure setAutoresizingMask(mask: NSUInteger);  
     message ’setAutoresizingMask:’;  
  procedure setAutoresizesSubviews(flag: LongBool);  
     message ’setAutoresizesSubviews:’;  
  procedure drawRect(dirtyRect: NSRect);  
     message ’drawRect:’;  
end;
          Ответить

          • ava guest # 0 ⇈

            нипонял
            они все .h файлы перевели на поскаль?
            Ответить

            • ava nemyx # Ссылка на оригинал 0 ⇈

              Как догадался?

              unit CocoaAll;

{$mode delphi}
{$modeswitch objectivec1}
{$modeswitch cvar} { for "external" after the semi-colon with external vars }
{$packrecords c}

interface

uses 
  ctypes,
  AEDataModel,IconsCore,
  CFBase, CFArray, CFBag , CFCharacterSet, CFData, CFDate, CFDictionary, CFNumber ,CFPropertyList, CFSet, CFString, CFStringEncodingExt, CFTimeZone, CFTree, CFURL, CFXMLNode, CFXMLParser, CFMachPort, CFMessagePort, CFRunLoop, CFSocket, CFBinaryHeap, CFBitVector, CFBundle, CFByteOrders, CFPlugIn, CFPreferences, CFURLAccess, CFUUID, CFLocale, CFStream, CFDateFormatter, CFNumberFormatter, CFCalendar, CFUserNotification, CFNotificationCenter, CFAttributedString, CFNetworkErrorss,
  CGBase, CGAffineTransforms, CGBitmapContext, CGColor, CGColorSpace, CGContext, CGDataConsumer, CGDataProvider, CGDirectDisplay, CGDirectPalette, CGDisplayConfiguration, CGDisplayFades, CGErrors, CGEvent, CGEventSource, CGEventTypes, CGFont, CGFunction, CGGLContext, CGGeometry, CGImage, CGLayer, CGPDFArray, CGPDFContentStream, CGPDFContext, CGPDFDictionary, CGPDFDocument, CGPDFObject, CGPDFOperatorTable, CGPDFPage, CGPDFScanner, CGPDFStream, CGPDFString, CGPSConverter, CGPath, CGPattern, CGRemoteOperation, CGSession, CGShading, CGWindowLevels,
  CVBase,CVImageBuffer,
  IOSurfaceAPI,
  SecBase, SecTrust,
  MacTypes, MacOSXPosix,
  macgl, CGLTypes,
  AnonClassDefinitionsQuartzcore;
  
{$linkframework Cocoa}
{$define INTERFACE}

{$include UndefinedTypes.inc}
// also includes the ones for foundation and appkit
{$include quartzcore/AnonIncludeClassDefinitionsQuartzcore.inc}

{$define HEADER}
{$include foundation/Foundation.inc}
{$include quartzcore/QuartzCore.inc}
{$include appkit/AppKit.inc}
{$undef HEADER}

{$define TYPES}
{$include foundation/Foundation.inc}
{$include quartzcore/QuartzCore.inc}
{$include appkit/AppKit.inc}
{$undef TYPES}


              Дальше не влезает.
              Ответить

              • ava guest # 0 ⇈

                почему на свифте не писать то?
                Ответить

                  • ava guest # 0 ⇈

                    Кроме шуток

                    Ябло дает тебе
                    1) копулятор
                    2) фреймворки (фундейшены)
                    3) документацию
                    4) IDE (хэ код)
                    5) конечное устройство
                    6) ос

                    Все это от одного вендора и довольно сильно документировано и интегрировано, логично предположить что это более стабильное решение чем поскаль

                    Я еще понимаю почему может хотеца писать паскалем а не обжсями, но свифт то всяко не хуже
                    Ответить

            • ava nemyx # Ссылка на оригинал 0 ⇈

              Вот ещё кусочек:
              { Parsed from Foundation.framework NSURL.h }

{$ifdef TYPES}
{$ifndef NSURL_PAS_T}
{$define NSURL_PAS_T}

{ Constants }

{ Types }
type
  NSURLBookmarkCreationOptions = NSUInteger;
  NSURLBookmarkCreationOptionsPtr = ^NSURLBookmarkCreationOptions;
  NSURLBookmarkResolutionOptions = NSUInteger;
  NSURLBookmarkResolutionOptionsPtr = ^NSURLBookmarkResolutionOptions;
  NSURLBookmarkFileCreationOptions = NSUInteger;
  NSURLBookmarkFileCreationOptionsPtr = ^NSURLBookmarkFileCreationOptions;

{$endif}
{$endif}
              Ответить

              • ava guest # 0 ⇈

                надеюсь они все фундейшены руками перевели!
                Ответить

                • ava nemyx # Ссылка на оригинал 0 ⇈

                  To build the iOS Objective-Pascal headers (only supported for the iOS 3.2 SDK headers at this time, other SDK versinos will probably result in errors and require manual modification),
                  1) cd to the directory which contains parser.php (the current directory)
                  2) ./make-ios-headers.sh

                  The built headers will be placed under uikit-skel/src.

                  А теперь барабанная дробь! Кусочек из make-ios-headers.sh:
                  # convert uikit and related framework headers
php parser.php -objp -all -frameworks=foundation,quartzcore,opengles,uikit -root=`pwd`/uikit-skel/src -framework_path="$SDKBASEPATH"/System/Library/Frameworks


                  parser.php инклюдит objp.php на 3800 строк.

                  Именно поэтому...
                  Ответить

                  • ava guest # 0 ⇈

                    >> iOS 3.2 SDK
                    ахахахахахахахаха
                    php, надеюсь, четвертый?

                    Доречи, угадай на каком языке писан манагер зависимостей для разработки под ios?
                    Ответить

                    • ava nemyx # Ссылка на оригинал 0 ⇈

                      В другой директории уже упоминается iOS 4.2. Они даже поленились синхронизировать документацию.
                      Ответить

                        • ava nemyx # Ссылка на оригинал 0 ⇈

                          Они не торопятся. Вдруг «Яблоко» сгниёт, а они зря силы потратили на перевод актуальных версий?
                          Ответить

                          • ava guest # 0 ⇈

                            на всякий случай напомню что cocoa pods написан на .. ruby
                            Ответить

                            • ava nemyx # Ссылка на оригинал 0 ⇈

                              Кстати, Ruby 2.6 таки вышел, но бинарник ещё не выложили. Нужно кококококонпелировать самим.
                              Ответить

                              • ava guest # 0 ⇈

                                на юниксе обычно это не сложно:)

                                руби все таки очень красивый язык, даже не смотря на то, что внизу каждого файла нас неминуемо ждет
                                end
     end
    end
   end
  end
end
                                Ответить

                              • ava guest # 0 ⇈

                                >>JIT [Experimental]
                                кажется одно зеленое земноводное только что смачно.. как бы это сказать... смоктануло

                                не?
                                pypy
                                Ответить

                              • ava guest # 0 ⇈

                                Какая версия вашего ебаного руби идет на xp?
                                Ответить

                                • ava guest # 0 ⇈

                                  наш прекрасный руби не работает наёбаном XP которым пользуются только калеки
                                  Ответить

                                  • ava guest # 0 ⇈

                                    А где там твой соус? И почему это не написано на оффсайте, как для питона?
                                    На 2.0 gem install вываливается с ошибкой TLS.
                                    Ответить

                                    • ava nemyx # Ссылка на оригинал 0 ⇈

                                      Логично же! У тебя старая версия openssl, куд-кудах!
                                      Попробуй gem install openssl. Ох, щи!

                                      Сам на такое натыкался. Гугли, как скачать из репозитория новый гем с openssl.
                                      Ответить

                                      • ava guest # 0 ⇈

                                        ща начнется вой про прыщеговно
                                        Ответить

                                        • ava guest # 0 ⇈

                                          Я не в курсе про прыщи, но что говно - это точно.
                                          Ответить

                                          • ava guest # 0 ⇈

                                            руби это драгоценный камень

                                            а говно это тот, у кого WindowsXP в 2018г
                                            Ответить

                                            • ava guest # 0 ⇈

                                              Если я говно назову рубином - ты его сожрешь? Почему я должен где-то выискивать какая последняя версия идет на такой-то версии оси?
                                              Ответить

                                              • ava guest # 0 ⇈

                                                мне совершенно всё равно что ты и чем называешь

                                                ты пустое место, и твое мнение не имеет значения ни для кого, кроме твоей мамы
                                                Ответить

                                                • ava guest # 0 ⇈

                                                  И ты пришел сюда специально чтобы написать как я тебе безразличен? Пшел нахуй, убожество!
                                                  Ответить

                                          • ava guest # 0 ⇈

                                            Я видел как в рассылке опенбзды чувак спрашивал как получить доступ к зеркалу пакетов на ftp, потому что чувак из Украины, ближайшее зеркало к нему на Яндексе, а Янедекс в Украине забанен по HTTP, но не по FTP.

                                            Тео ответил что FTP больше не поддердживается
                                            Ответить

                                            • ava guest # 0 ⇈

                                              А вручную зеркало нельзя выбрать? И почему в бане весь яндекс, а не только поисковик?
                                              Ответить

                                              • ava guest # 0 ⇈

                                                Потому что с точки зрения украинской политики «Яндекс» — компания страны-агрессора.
                                                Ответить

                                                  • ava guest # 0 ⇈

                                                    Это довольно сложно, придется регулярно грепать хуизную базу RIPEа
                                                    Ответить

                                                  • ava guest # 0 ⇈

                                                    У вас же пытались, и как, получилось?
                                                    Ответить

                                                    • ava nemyx # Ссылка на оригинал 0 ⇈

                                                      У нас до сих пор трафик между Москвой и Питером ходит через Стокгольм. Я серьёзно, могу даже выхлоп tracert показать.

                                                      Если банить зарубежные айпишники, вся сеть распадётся.

                                                      Министр связи предлагал запретить транзит внутригосударственного трафика через зарубежные линии, но на реализацию этого проекта нужны тонны нефти.
                                                      Ответить

                                                      • ava guest # 0 ⇈

                                                        В кетае фаерволл встроили в самом начале строительста местного инета.
                                                        Ответить

                                                      • ava guest # 0 ⇈

                                                        Это еще со времен "пиринговых войн" пошло. Не все со всеми хотят пирица, иногда дешевле и проще сделать это через спринт например
                                                        Ответить

                                                • ava guest # 0 ⇈

                                                  Там и не было цели забанить все руснявое. В бан хотели отправить основные рассадники ваты: ватноклассники, вконтакте. Вот за что яндекс туда я хз. Политика, что вы хотите. Хорошо хоть не получилось как в рашке с роскомпозором.
                                                  Ответить

                                                  • ava 1024-- # Ссылка на оригинал 0 ⇈

                                                    > Вот за что яндекс туда я хз.
                                                    Тем более, что Яндекс.карты правильно отображают принадлежность Крыма в зависимости от того, из какой страны смотрят карту.

                                                    > В бан хотели отправить основные рассадники ваты
                                                    Это реальная угроза была? Без этого бы к России возникли нежные чувства?
                                                    Ответить

                                                    • ava nemyx # Ссылка на оригинал 0 ⇈

                                                      Интересно, как разные сервисы отображают Северный Кипр, Кашмир, Тайвань, Макао, Гонконг, Косово, Нагорный Карабах, Западную Сахару.
                                                      Ответить

                                                      • ava guest # 0 ⇈

                                                        Макао это специальный административный регион КНР, как и Гонконг. Кто-то это оспаривает?

                                                        Кашмир и дефакто и деюре контролируется Индией не смотря на преобладание мусульманского населения, тяготеющего к Пакистану.

                                                        Тайвань признан многими странами, и обычно он все таки везде есть. КНР, в общем, даже не очень на это сердится. Ну то-есть это не так как было с ФРГ, которая автоматом рвала дипотношения со всеми кто признавал ГДР (исключение было сделано для ссср только).

                                                        А вот НКР, ПМР, СевКипр, Косово, Республику Сербску (внутри БиГ) и прочие ЛНР ДНР и Осетии с Абхазией, с ними конечно всё сложнее
                                                        Ответить

                                                    • ava guest # 0 ⇈

                                                      Мне отсюда плохо видно что там у хохлов, но юго-восток очень ватный. Достаточно посмотреть за кого они голосовали.
                                                      Ответить

                                                      • ava guest # 0 ⇈

                                                        Бан мейлру на ватность не влияет.
                                                        Они будут смотреть Первый Канал на ютюбе, читать Шария и Монтян в твитттере и какую-нить "русскую весну".

                                                        Забанив Яндекс и ВК Украина ничего не добилась в плане безопастности имхо
                                                        Ответить

                                            • ava nemyx # Ссылка на оригинал 0 ⇈

                                              Досадно, но за последнее время немало ресурсов на FTP закрылось. А жаль, ведь по FTP качать удобнее: никакого хлама в виде HTML-страниц, сразу список файлов; можно выкачивать целыми директориями.
                                              Ответить

                                              • ava guest # 0 ⇈

                                                >сразу список файлов
                                                Это и на http есть

                                                >можно выкачивать целыми директориями.
                                                Это да, но зачем это надо?
                                                Ответить

                                                • ava nemyx # Ссылка на оригинал 0 ⇈

                                                  >> Это и на http есть

                                                  Есть, если на сервере явно включен генератор списка файлов.
                                                  Ответить

                                                  • ava guest # 0 ⇈

                                                    вообще мир развивается по спирали противозачаточной

                                                    сначала были специализированные протколы news, ftp, smtp, теперь всё заменили на веб морду, а потом поверх неепридумали rest api
                                                    Ответить

                                                  • ava guest # 0 ⇈

                                                    Мы с тобой про репозитории говорим? Там он обычно включен.
                                                    Ответить

                                              • ava guest # 0 ⇈

                                                если бы еще FTP не требовал двух коннектов
                                                Ответить

                                                • ava guest # 0 ⇈

                                                  Если бы еще FTP не требовал нового коннекта на каждый файл
                                                  Ответить

                                                  • ava guest # 0 ⇈

                                                    Это не самый ад, unless ты не загружаешь 1024 файлика по 500 байт каждый
                                                    Ответить

                                                    • ava guest # 0 ⇈

                                                      Это делает его практически непригодным даже при работе с насом в локалке. Про удаленный серв вообще молчу.
                                                      Ответить

                                          • ava guest # 0 ⇈

                                            Угу, помогло, спасибо. Правда, уже на другом месте сломалось.
                                            Ответить

                                        • ava guest # 0 ⇈

                                          The 'json' native gem requires installed build tools.

                                          ПРЫЩЕГОВНО! Ниасилили бинарники?
                                          Ответить

                                      • ava guest # 0 ⇈

                                        Оно вообще апдейтится отдельно от руби?
                                        Ответить

                                        • ava nemyx # Ссылка на оригинал 0 ⇈

                                          Мне в своё время (на Ruby 2.0 или 1.8, уже точно не помню) ручная доустановка нескольких пакетов помогла, gem install заработал.
                                          Ответить

                                            • ava guest # 0 ⇈

                                              А ты школьник? Я еще с питона 2.6 начинал. Тройка тогда еще альфой была.
                                              Ответить

                                              • ava guest # 0 ⇈

                                                ту би онест, про питона я услышал впервые в 2004 году, а про руби -- в 2006, уже вместе с рельсой.

                                                Но руками их потрогал значительно позже
                                                Ответить

                                • ava nemyx # Ссылка на оригинал 0 ⇈

                                  Кстати, посмотрел исходники этого вашего Ruby. Всё пестрит строчками такого вида:
                                  #if defined _WIN32 || defined __APPLE__


                                  Даже #ifdef __CYGWIN__ есть, хотя Сигвин вроде должен обеспечивать совместимость с POSIX.
                                  Ответить

                                  • ava guest # 0 ⇈

                                    костыли вы мои костыли

                                    позикс не всегда достаточен. Классический пример это kqueue в apple/bsd и epoll в ляликс
                                    Ответить

  • ava Morgoth # Ссылка на оригинал 0

    > proc nop{}
    блин, тсс меня испортил, в гсс так нэридзя.
    Ответить

  • ava 6A9lHuCT # Ссылка на оригинал 0 

    * g o a t s e x * g o a t s e x * g o a t s e x *  
 g                                               g  
 o /     \             \            /    \       o  
 a|       |             \          |      |      a  
 t|       `.             |         |       :     t  
 s`        |             |        \|       |     s  
 e \       | /       /  \\\   --__ \\       :    e  
 x  \      \/   _--~~          ~--__| \     |    x  
 *   \      \_-~                    ~-_\    |    *  
 g    \_     \        _.--------.______\|   |    g  
 o      \     \______// _ ___ _ (_(__>  \   |    o  
 a       \   .  C ___)  ______ (_(____>  |  /    a  
 t       /\ |   C ____)/      \ (_____>  |_/     t  
 s      / /\|   C_____)       |  (___>   /  \    s  
 e     |   (   _C_____)\______/  // _/ /     \   e  
 x     |    \  |__   \\_________// (__/       |  x  
 *    | \    \____)   `----   --'             |  *  
 g    |  \_          ___\       /_          _/ | g  
 o   |              /    |     |  \            | o  
 a   |             |    /       \  \           | a  
 t   |          / /    |         |  \           |t  
 s   |         / /      \__/\___/    |          |s  
 e  |         / /        |    |       |         |e  
 x  |          |         |    |       |         |x  
 * g o a t s e x * g o a t s e x * g o a t s e x *
    Ответить

Добавить комментарий

Где здесь C++, guest?!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓