1. Куча / Говнокод #26869

    +1

    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
    21. 21
    ПPOЦ COKO_БAH;
ИMEHA:P,B,PR,И,ИM,Г;
975->P;
767->B;
<32,100,27,141,65,AДPЧ(6994),169,32,133,83,169,0,133,153,169,0,133,152,32,79,187,32,92,27,76,96,27>->PR;
ДЛЯ И OT 1 ДO #PR::
    AДPЗ(P+И,PR[И]);
BCE;
ДЛЯ Г ИЗ<"1","2">::
    "S"+Г->ИM;
    ДЛЯ И OT 1 ДO 30::
        ECЛИ И>#ИM TO
            AДPЗ(B+И,160);
        ИHAЧE
            AДPЗ(B+И,KOД(ИM[И]));
        BCE;
    BCE;
    AДPBЫЗ(976);
BCE;
AДPBЫЗ(17548);
KHЦ;

    «Сокобан» («Мудрый крот») из пакета «Роботландия» для «Агата».

    Язык программирования: «Рапира».

    Форматирование моё (в оригинале был однострочник).

    Запостил: TEH3OPHblu_nemyx, 15 Августа 2020

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

    • ava TEH3OPHblu_nemyx 15.08.2020 07:41 # 0

      SEO-пост.

      Данный код представляет собой клей для кода, написанного на другом языке: в нескольких местах вызывается внешний код через АДРВЫЗ и АДРЗ.

      Интересно, что в «Рапире» у оператора присвоения (->) «левая» и «правая» части инвертированы. Такой вариант оператора присвоения есть в языке «R».
      Ответить

    • ava gost 15.08.2020 07:42 # 0

      ОЙ, ВСЕ;
      Ответить

      • ava TEH3OPHblu_nemyx 15.08.2020 07:48 # 0

        По семантике язык чем-то похож на «Питон» или на «Яuбу»: тут кортежи есть (<"1","2">).

        По синтаксису чем-то похож на «Модулу» или «Оберон» с обязательными операторными скобками или на «Фортран-90» или «Quick Basic» с его «ENDIF», «ENDFOR». Хотя больше всё-таки на «Модулу» или «Оберон» (из-за точки с запятой).

        По языку ключевых слов — на «1С».

        А всё вместе получается забавно.
        Ответить

        • ava gost 15.08.2020 07:50 # 0

          А что такое «АДРЧ»?
          Ответить

          • ava TEH3OPHblu_nemyx 15.08.2020 07:50 # +1

            Подозреваю, что Ч — это чтение, З — это запись. Как PEEK и POKE в «Бейсике».

            Программа патчит оперативку, потом вызывает что-то, загруженное по фиксированному адресу.
            Ответить

      • ava bormand 15.08.2020 23:04 # 0

        КНЦ
        Ответить

    • ava bdevnameless 25.08.2021 19:25 # 0

      Когда я добрался домой, у меня в голове была только одна мысль: напиться! Пусть не самая умная, зато она точно поможет мне хотя бы на некоторое время забыться.
      Ответить

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