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

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

    • ava Desktop 7 часов назад # 0

      seo: паскакаль с метушнёй
      Ответить

    • ava MOPCKAR_CBNHNHA 6 часов назад # 0

      Это не язык, а какой-то жаргон
      Ответить

      • ava Desktop 6 часов назад # 0

        https://seed7.net/examples/3wayif.htm
        Ответить

        • ava MOPCKAR_CBNHNHA 5 часов назад # 0

          Ну не по-паскальски это.
          Дело даже не в сахаре elif, а в отсутствии возвращаемого энума, который потом бранчится 
          case cmp(myAge) of


          Так-то этот 300wayif не особо нужен тут
          Ответить

    • ava guest6 6 часов назад # 0

      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
      Ответить

      • ava Desktop 6 часов назад # 0

        в посте user defined statement. в фортране как? из коробки, наверное?
        Ответить

        • ava guest6 6 часов назад # 0

          В Фортране искоробочный. Фортран вообще негибкий, там куча конструкций, прибитых гвоздями к компилятору.
          Ответить

    • ava guest6 6 часов назад # 0

      Между «const proc:» и «is func» идёт шаблон, с которым компилятор будет паттернматчить последующий код? Т. е. можно самим описать любые циклы, свитч-кейсы и прочие конструкции, не дожидаясь, пока это реализуют в компиляторе?
      Ответить

    • ava Desktop 6 часов назад # 0

      > Can a function return a reference to an element of a struct?
      > No, because this would open possibilities for memory corruption.

      какой раст )))
      Ответить

      • ava Desktop 6 часов назад # 0

        > The objects use a reference count and are freed automatically when the reference count reaches zero.
        Ответить

      • ava guest6 6 часов назад # 0

        в расте как раз функция может вернуть референс на внутрений элемент, но ты не сможешь его держать дольше, чем референс на саму структуру (и конечно не сможешь ее двинуть)

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

        • ava guest6 5 часов назад # 0

          блядь какой же ты занудный

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

          кто-то: (что-то говорит)
          ты: а вот кстати у нас в Расте...
          Ответить

          • ava guest6 5 часов назад # 0

            Эти комментарии написаны одним человеком (вероятнее всего Макакой) потому что их автор не знаком с правилами русского языка.
            Ответить

          • ava MOPCKAR_CBNHNHA 5 часов назад # 0

            А я использую агсн
            Ответить

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