Куча говна / Говнокод #26869 Ссылка на оригинал

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
  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 TEH3OPHblu_nemyx, (Updated )

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

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

    SEO-пост.

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

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

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

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

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

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

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

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

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

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

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

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

    ↑
    8
    ↓