1. Pascal / Говнокод #29255

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    const proc: if (in integer: a) cmp (in integer: b) then
                  lt: (in proc: ltPart)
                  eq: (in proc: eqPart)
                  gt: (in proc: gtPart)
                end if                   is func
      begin
        if a < b then
          ltPart;
        elsif a = b then
          eqPart;
        else
          gtPart;
        end if;
      end func;
    
    if yourAge cmp myAge then
      lt: writeln("You are yonger than me");
      eq: writeln("We have the same age");
      gt: writeln("You are older than me");
    end if;

    Запостил: Desktop, 06 Мая 2026

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

    • seo: паскакаль с метушнёй
      Ответить
    • Это не язык, а какой-то жаргон
      Ответить
      • https://seed7.net/examples/3wayif.htm
        Ответить
        • Ну не по-паскальски это.
          Дело даже не в сахаре elif, а в отсутствии возвращаемого энума, который потом бранчится
          case cmp(myAge) of


          Так-то этот 300wayif не особо нужен тут
          Ответить
    • 3-way if был ещё в классическом Фортране-66, он там назывался «arihtmetic if», но он был неструктурным, позволял только переходить на метки (как в Бейсике IF ... GOTO). Даже в Фортране-II 1958-го года он уже был.

      C
         IF (pituh) 10, 20, 30
      10 WRITE (*, "Питух меньше нуля")
         GO TO 40
      20 WRITE (*, "Питух равен нулю")
         GO TO 40
      30 WRITE (*, "Питух больше нуля")
         GO TO 40
      40 END
      Ответить
      • в посте user defined statement. в фортране как? из коробки, наверное?
        Ответить
        • В Фортране искоробочный. Фортран вообще негибкий, там куча конструкций, прибитых гвоздями к компилятору.
          Ответить
      • void test(int pituh)
        {
          goto *( (void *[]){&&l20, &&l10, &&l30}[(pituh < 0) | ((pituh > 0)<<1) ]);
          l10: printf("Питух меньше нуля\n"); goto l40;
          l20: printf("Питух равен нулю\n"); goto l40;
          l30: printf("Питух больше нуля"); goto l40;
          l40: return;
        }
        Ответить
    • Между «const proc:» и «is func» идёт шаблон, с которым компилятор будет паттернматчить последующий код? Т. е. можно самим описать любые циклы, свитч-кейсы и прочие конструкции, не дожидаясь, пока это реализуют в компиляторе?
      Ответить
    • > Can a function return a reference to an element of a struct?
      > No, because this would open possibilities for memory corruption.

      какой раст )))
      Ответить
      • > The objects use a reference count and are freed automatically when the reference count reaches zero.
        Ответить
      • в расте как раз функция может вернуть референс на внутрений элемент, но ты не сможешь его держать дольше, чем референс на саму структуру (и конечно не сможешь ее двинуть)

        коллекции владеют элементами например и их возвращают ссылкой
        Ответить
        • блядь какой же ты занудный

          видел мем про ссущих в длииииииином ряду писуаров?

          кто-то: (что-то говорит)
          ты: а вот кстати у нас в Расте...
          Ответить
          • Эти комментарии написаны одним человеком (вероятнее всего Макакой) потому что их автор не знаком с правилами русского языка.
            Ответить
          • А я использую агсн
            Ответить
    • Природа настолько очистилась, что на говнокод вернулись дельфины.
      Вообще да, нужно чтобы срачи паскалистов с растишками. Я за то, чтобы Desktop занял экологическую нишу Тараса.
      Ответить
      • логическую нишу
        Ответить
      • где же я тебе возьму макбук на селероне?
        Ответить
        • А ты макбук на PowerPC возьми. Олдскульно, элегантно, тарасоугодно.
          Ответить
          • – покупаю молоко, а оно как вода
            – а Вы возьмите сметану, она как молоко
            Ответить
          • на Motorola 68000, вроде первый ноут у яблока был именно такой

            (PPC это уже конц 90х)
            Ответить
        • Я засмеялся: где же я возьму ноутбук на Селероне, когда все Селероны у Тараса?
          Ответить
    • The Arabic term kawa‘ib in 78:33
      Ответить
    • Что-то сегодня тихо. MAKAKA в отпуске?
      Ответить
    • Инканус, le petit turnique
      Ответить
    • По кривой извилистой дороге
      Через лес и горы напрямик
      На машине ехали уроды
      Ехали живого хоронить
      За рулем сидел у них безрукий
      А безногий жал на тормоза
      А слепой указывал дорогу
      А дурак бибикал без конца
      Вдруг из леса выскочила банда
      Грузовик пришлось остановить
      И немой глухому что то гаркнул
      А безрукий поднял дробовик
      Тут раздались выстрелы слепого
      Сразу пять бандитов наповал
      Половина банды разбежалось
      Но безногий тут же их догнал
      Одного бандита не приметил
      Спрятаться в болоте он решил
      Но слепой давно его заметил
      А безрукий с кольта уложил
      Ответить
    • В России начали ограничивать доступ к GitHub — «Вёрстка
      Ответить
      • Да давно уже. Он то работает, то не работает без VPN. Его периодически блокируют и снимают блокировку.

        А поскольку куча ПО использует Гитхаб как хостинг для данных, то куча ПО внезапно отказывается работать без VPN.
        Ответить
      • Я ещё рассказывал, как вытягивать блобы с Гитхаба, когда он забанен, через CDN.

        Например:
        https://cdn.jsdelivr.net/gh/%имя_автора%/%имя_репы%@%тэг%/%путь_и_имя_файла%
        Ответить
    • Пентагон начал рассекречивать документы об НЛО
      Ответить
      • Ну как, что уже рассекретили?
        Ответить
      • Я потерял этот мем в директории с 100500 файлов, поэтому используйте воображение:

        Сойджак-норми-реддитор: Пришельцы существуют!
        Nordic gamer-конспиролог в шапочке из фольги: Нет, не существуют.
        Ответить

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